diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-11-07 02:19:03 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-11-07 02:19:03 +0000 |
commit | ef42490f6651af21e86a4521e24d81cc314df5cb (patch) | |
tree | 13e7c0601c4f4b746852f515fba3da17e54fc13b | |
parent | 81211c73cc7228612bacc255b35b46f29bd203d8 (diff) | |
download | guile-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.scm | 2 |
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))) |