diff options
author | Ken Raeburn <raeburn@raeburn.org> | 2009-11-15 23:43:17 -0500 |
---|---|---|
committer | Ken Raeburn <raeburn@raeburn.org> | 2009-11-16 14:24:32 -0500 |
commit | 222831b443a14dd58ef646e8b313a38c38237f69 (patch) | |
tree | da0799a331f55ea1f692c8934a9aaf9991335be6 /module/oop/goops | |
parent | d02f3137146bafe944d8c6736f9044dbf54868f9 (diff) | |
download | guile-222831b443a14dd58ef646e8b313a38c38237f69.tar.gz |
SCM_DEBUG fix: Don't apply SCM_CAR to non-pairs when walking argument
lists in method cache matching.
* libguile/goops.c (scm_mcache_lookup_cmethod): Don't apply SCM_CAR to
non-pairs when walking argument lists in method cache matching.
Don't check for CLASSP or symbol in the car slot, since the end of
the specifier list is a non-pair. Update comments to reflect new
structure of method cache entry.
* module/oops/goops/dispatch.scm: Update comments here too.
Diffstat (limited to 'module/oop/goops')
-rw-r--r-- | module/oop/goops/dispatch.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/oop/goops/dispatch.scm b/module/oop/goops/dispatch.scm index 88abf8045..6a450c179 100644 --- a/module/oop/goops/dispatch.scm +++ b/module/oop/goops/dispatch.scm @@ -53,9 +53,9 @@ ;;; Method cache ;;; -;; (#@dispatch args N-SPECIALIZED #((TYPE1 ... ENV FORMALS FORM1 ...) ...) GF) +;; (#@dispatch args N-SPECIALIZED #((TYPE1 ... . CMETHOD) ...) GF) ;; (#@dispatch args N-SPECIALIZED HASHSET MASK -;; #((TYPE1 ... ENV FORMALS FORM1 ...) ...) +;; #((TYPE1 ... . CMETHOD) ...) ;; GF) ;;; Representation |