diff options
Diffstat (limited to 'oop/goops/dispatch.scm')
-rw-r--r-- | oop/goops/dispatch.scm | 2 |
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))) |