fix bug in self-tail-recursion with "external" variables; other sundries

[bpt/guile.git] / oop / goops / dispatch.scm

diff --git a/oop/goops/dispatch.scm b/oop/goops/dispatch.scm
index 73f4132..d8b97b6 100644 (file)
--- a/oop/goops/dispatch.scm
+++ b/oop/goops/dispatch.scm
@@ -179,6 +179,8 @@
        ((not (struct? (car classes))) sum)
       (set! sum (+ sum (struct-ref (car classes) hashset-index))))))
 
+;;; FIXME: the throw probably is expensive, given that this function
+;;; might be called an average of 3 or 4 times per rehash...
 (define (cache-try-hash! min-misses hashset cache entries)
   (let ((max-misses 0)
        (mask (- (vector-length cache) 1)))