diff options
author | Andy Wingo <wingo@pobox.com> | 2009-11-05 12:41:54 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-11-26 00:25:06 +0100 |
commit | 6d33e90f0ccf96f5a9f6403768daf24f84481046 (patch) | |
tree | a5575720544ae839556adfcf3a2dbc2b69271287 /module/oop | |
parent | 0f84ac3fe6da365c9580ea2d475c4fb8fa58b1a7 (diff) | |
download | guile-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.scm | 2 |
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) |