summaryrefslogtreecommitdiff
path: root/module/oop
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-11-05 12:41:54 +0100
committerAndy Wingo <wingo@pobox.com>2009-11-26 00:25:06 +0100
commit6d33e90f0ccf96f5a9f6403768daf24f84481046 (patch)
treea5575720544ae839556adfcf3a2dbc2b69271287 /module/oop
parent0f84ac3fe6da365c9580ea2d475c4fb8fa58b1a7 (diff)
downloadguile-6d33e90f0ccf96f5a9f6403768daf24f84481046.tar.gz
remove used-by slot from generics
* libguile/goops.c (clear_method_cache) (scm_sys_invalidate_method_cache_x, scm_make) (create_standard_classes): Remove the used-by method from generics, as it is not used at all. * libguile/goops.h: Renumber generic slots. * module/oop/goops/dispatch.scm (memoize-method!): No more used-by slot.
Diffstat (limited to 'module/oop')
-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)