summaryrefslogtreecommitdiff
path: root/oop/goops/dispatch.scm
diff options
context:
space:
mode:
Diffstat (limited to 'oop/goops/dispatch.scm')
-rw-r--r--oop/goops/dispatch.scm4
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))