summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-11-07 02:19:03 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-11-07 02:19:03 +0000
commitef42490f6651af21e86a4521e24d81cc314df5cb (patch)
tree13e7c0601c4f4b746852f515fba3da17e54fc13b
parent81211c73cc7228612bacc255b35b46f29bd203d8 (diff)
downloadguile-ef42490f6651af21e86a4521e24d81cc314df5cb.tar.gz
* goops/dispatch.scm (method-cache-install!): Use n-specialized +
1 args for type matching. (Thanks to Lars J. Aas.)
-rw-r--r--oop/goops/dispatch.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/oop/goops/dispatch.scm b/oop/goops/dispatch.scm
index 26d832a6e..a1e031f4d 100644
--- a/oop/goops/dispatch.scm
+++ b/oop/goops/dispatch.scm
@@ -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)))