summaryrefslogtreecommitdiff
path: root/module/oop
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-10-31 00:28:43 +0100
committerAndy Wingo <wingo@pobox.com>2009-11-15 20:28:11 +0100
commit730d8ad9e64c3d4b31871a50a4c790b7548bc478 (patch)
treeafe5f18c5900b5736b155b50427163ac920261e3 /module/oop
parent352c87d7e4c8845b935f8439432d28d80bf06879 (diff)
downloadguile-730d8ad9e64c3d4b31871a50a4c790b7548bc478.tar.gz
remove operators
Diffstat (limited to 'module/oop')
-rw-r--r--module/oop/goops.scm10
1 files changed, 1 insertions, 9 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index 7871c2f7f..00a5d68d3 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -73,7 +73,7 @@
primitive-generic-generic enable-primitive-generic!
method-procedure accessor-method-slot-definition
slot-exists? make find-method get-keyword)
- :replace (<class> <operator-class> <entity-class> <entity>)
+ :replace (<class> <entity-class> <entity>)
:no-backtrace)
(define *goops-module* (current-module))
@@ -1484,14 +1484,6 @@
(set-object-procedure! object
(lambda args (apply proc args)))))))
-(define-method (initialize (class <operator-class>) initargs)
- (next-method)
- (initialize-object-procedure class initargs))
-
-(define-method (initialize (owsc <operator-with-setter-class>) initargs)
- (next-method)
- (%set-object-setter! owsc (get-keyword #:setter initargs #f)))
-
(define-method (initialize (entity <entity>) initargs)
(next-method)
(initialize-object-procedure entity initargs))