mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +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

7
oop/ChangeLog
View file

@ -1,3 +1,10 @@
2000-11-24 Dirk Herrmann <D.Herrmann@tu-bs.de>
* goops.scm: Don't export removed %logand any more.
* goops/dispatch.scm (cache-try-hash!): Use logand instead of
%logand.
2000-11-06 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
* goops.scm (internal-add-method!): Set n-specialized of a generic

3
oop/goops.scm
View file

@ -77,8 +77,7 @@
generic-function-methods method-generic-function method-specializers
primitive-generic-generic enable-primitive-generic!
method-procedure accessor-method-slot-definition
slot-exists? make find-method get-keyword
%logand)
slot-exists? make find-method get-keyword)
(define min-fixnum (- (expt 2 29)))

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