diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-24 10:55:23 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-24 10:55:23 +0000 |
| commit | ca83b028dc92ef4f86bb9203e914bcca63bf729c (patch) | |
| tree | 385de7fc6f7accc8043f2cb0b06cffd1806570c2 /oop | |
| parent | 379b35daaa0d13f9e77979b358cec0c17861d29e (diff) | |
| download | guile-ca83b028dc92ef4f86bb9203e914bcca63bf729c.tar.gz | |
* Goops does not provide its own version of logand any more.
* Removed use of deprecated stuff from goops.
Diffstat (limited to 'oop')
| -rw-r--r-- | oop/ChangeLog | 7 | ||||
| -rw-r--r-- | oop/goops.scm | 3 | ||||
| -rw-r--r-- | oop/goops/dispatch.scm | 4 |
3 files changed, 10 insertions, 4 deletions
diff --git a/oop/ChangeLog b/oop/ChangeLog index 78497dfc0..246c4e3ff 100644 --- a/oop/ChangeLog +++ b/oop/ChangeLog @@ -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 diff --git a/oop/goops.scm b/oop/goops.scm index 94d4e1d12..3de529e66 100644 --- a/oop/goops.scm +++ b/oop/goops.scm @@ -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))) 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)) |