guile/guile-core/oop/goops dispatch.scm

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       00/11/06 18:19:03

Modified files:
        guile-core/oop/goops: dispatch.scm 

Log message:
        * goops/dispatch.scm (method-cache-install!): Use n-specialized +
        1 args for type matching.  (Thanks to Lars J. Aas.)

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/oop/goops/dispatch.scm.diff?r1=1.1&r2=1.2

Patches:
Index: guile/guile-core/oop/goops/dispatch.scm
diff -u guile/guile-core/oop/goops/dispatch.scm:1.1 
guile/guile-core/oop/goops/dispatch.scm:1.2
--- guile/guile-core/oop/goops/dispatch.scm:1.1 Wed Oct 25 07:51:33 2000
+++ guile/guile-core/oop/goops/dispatch.scm     Mon Nov  6 18:19:03 2000
@@ -261,7 +261,7 @@
             (n-specializers
              (if (list? specializers)
                  (length specializers)
-                 (abs (slot-ref (method-cache-generic-function exp)
+                 (+ 1 (slot-ref (method-cache-generic-function exp)
                                 'n-specialized)))))
        (let* ((types (map class-of (first-n args n-specializers)))
               (entry+cmethod (compute-entry-with-cmethod applicable types)))