diff options
Diffstat (limited to 'oop/goops/dispatch.scm')
-rw-r--r-- | oop/goops/dispatch.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/oop/goops/dispatch.scm b/oop/goops/dispatch.scm index a1e031f4d..ebd3623ea 100644 --- a/oop/goops/dispatch.scm +++ b/oop/goops/dispatch.scm @@ -191,8 +191,8 @@ (do ((ls entries (cdr ls)) (misses 0 0)) ((null? ls) max-misses) - (do ((i (%logand mask (cache-hashval hashset (car ls))) - (%logand mask (+ i 1)))) + (do ((i (logand mask (cache-hashval hashset (car ls))) + (logand mask (+ i 1)))) ((not (struct? (car (vector-ref cache i)))) (vector-set! cache i (car ls))) (set! misses (+ 1 misses)) |