remove code that manages the method cache

[bpt/guile.git] / module / oop / goops / dispatch.scm

diff --git a/module/oop/goops/dispatch.scm b/module/oop/goops/dispatch.scm
index 9e97b5b..df76800 100644 (file)
--- a/module/oop/goops/dispatch.scm
+++ b/module/oop/goops/dispatch.scm
@@ -228,7 +228,7 @@
       (cache-miss gf args)))
 
 (define (cache-miss gf args)
-  (apply (memoize-method! gf args (slot-ref gf '%cache)) args))
+  (apply (memoize-method! gf args) args))
 
 (define (memoize-effective-method! gf args applicable)
   (define (first-n ls n)
@@ -256,7 +256,7 @@
 ;;; Memoization
 ;;;
 
-(define (memoize-method! gf args exp)
+(define (memoize-method! gf args)
   (let ((applicable ((if (eq? gf compute-applicable-methods)
                         %compute-applicable-methods
                         compute-applicable-methods)