Changeset 36455 in project


Ignore:
Timestamp:
08/27/18 21:18:31 (4 weeks ago)
Author:
kooda
Message:

Fix srfi-69 hash functions on ratnums and cplxnums

Location:
release/5/srfi-69/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-69/trunk/srfi-69.scm

    r35502 r36455  
    383383          #; ;NOT YET (no keyword vs. symbol issue)
    384384          [(keyword? obj)         (%keyword-hash obj rnd)]
    385           [(number? obj)          (%non-fixnum-number-hash obj rnd)]
     385          [(flonum? obj)          (%non-fixnum-number-hash obj rnd)]
    386386          [(%immediate? obj)      (fxxor unknown-immediate-hash-value rnd)]
    387387          [(%byte-block? obj)     (%string-hash obj rnd)]
  • release/5/srfi-69/trunk/tests/hash-table-tests.scm

    r35502 r36455  
    66(assert (eq? hash equal?-hash))
    77(assert (eq? hash-by-identity eq?-hash))
     8(assert (eq?-hash 1/2))
     9(assert (eq?-hash 1+1i))
     10(assert (eqv?-hash 1/2))
     11(assert (eqv?-hash 1+1i))
     12(assert (equal?-hash 1/2))
     13(assert (eqv?-hash 1+1i))
    814
    915;; Re-use variable
Note: See TracChangeset for help on using the changeset viewer.