[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/oop/goops dispatch.scm
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/oop/goops dispatch.scm |
Date: |
Mon, 06 Nov 2000 18:19:03 -0800 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/oop/goops dispatch.scm,
Mikael Djurfeldt <=