mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

* Goops does not provide its own version of logand any more.

Browse source 
* Removed use of deprecated stuff from goops.
This commit is contained in:
Dirk Herrmann 2000-11-24 10:55:23 +00:00
parent 379b35daaa
commit ca83b028dc
6 changed files with 48 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

4
oop/goops/dispatch.scm
View file

@ -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))