Changeset 14527 in project for chicken


Ignore:
Timestamp:
05/04/09 22:29:49 (11 years ago)
Author:
Jim Ursetto
Message:

Fix silly number-hash bug which hashed all fixnums to 23 --
any self-respecting nerd would know they should hash to 42

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/srfi-69.scm

    r14236 r14527  
    168168
    169169(define-inline (%number-hash obj)
    170   (cond [(fixnum? obj)  ?obj]
     170  (cond [(fixnum? obj)  obj]
    171171        [else           (%non-fixnum-number-hash obj)] ) )
    172172
Note: See TracChangeset for help on using the changeset viewer.