diff options
author | Andy Wingo <wingo@pobox.com> | 2009-10-31 00:28:43 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-11-15 20:28:11 +0100 |
commit | 730d8ad9e64c3d4b31871a50a4c790b7548bc478 (patch) | |
tree | afe5f18c5900b5736b155b50427163ac920261e3 /module/oop | |
parent | 352c87d7e4c8845b935f8439432d28d80bf06879 (diff) | |
download | guile-730d8ad9e64c3d4b31871a50a4c790b7548bc478.tar.gz |
remove operators
Diffstat (limited to 'module/oop')
-rw-r--r-- | module/oop/goops.scm | 10 |
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)) |