mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

* goops/dispatch.scm (method-cache-install!): Use n-specialized +

Browse source 
1 args for type matching.  (Thanks to Lars J. Aas.)
This commit is contained in:
Mikael Djurfeldt 2000-11-07 02:19:03 +00:00
parent 81211c73cc
commit ef42490f66
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
oop/goops/dispatch.scm
View file

@ -261,7 +261,7 @@
(n-specializers (n-specializers
(if (list? specializers) (if (list? specializers)
(length specializers) (length specializers)
(abs (slot-ref (method-cache-generic-function exp) (+ 1 (slot-ref (method-cache-generic-function exp)
'n-specialized))))) 'n-specialized)))))
(let* ((types (map class-of (first-n args n-specializers))) (let* ((types (map class-of (first-n args n-specializers)))
(entry+cmethod (compute-entry-with-cmethod applicable types))) (entry+cmethod (compute-entry-with-cmethod applicable types)))