summaryrefslogtreecommitdiff
path: root/oop/goops
diff options
context:
space:
mode:
Diffstat (limited to 'oop/goops')
-rw-r--r--oop/goops/dispatch.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/oop/goops/dispatch.scm b/oop/goops/dispatch.scm
index 73f413234..d8b97b6d1 100644
--- 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)))