summaryrefslogtreecommitdiff
path: root/module/oop/goops
diff options
context:
space:
mode:
Diffstat (limited to 'module/oop/goops')
-rw-r--r--module/oop/goops/dispatch.scm2
1 files changed, 0 insertions, 2 deletions
diff --git a/module/oop/goops/dispatch.scm b/module/oop/goops/dispatch.scm
index bd84f8ff6..1b83529b1 100644
--- a/module/oop/goops/dispatch.scm
+++ b/module/oop/goops/dispatch.scm
@@ -212,8 +212,6 @@
(no-applicable-method (car args) (cadr args)))
(define (memoize-method! gf args exp)
- (if (not (slot-ref gf 'used-by))
- (slot-set! gf 'used-by '()))
(let ((applicable ((if (eq? gf compute-applicable-methods)
%compute-applicable-methods
compute-applicable-methods)