Ignore:
Timestamp:
11/27/08 15:40:05 (13 years ago)
Author:
felix winkelmann
Message:

applied changes (untested)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/lazy-gensyms/srfi-69.scm

    r12262 r12612  
    196196
    197197(define-inline (%symbol-hash obj)
    198   (%string-hash (##sys#slot obj 1)) )
     198  (%string-hash (##sys#symbol-name obj)) )
    199199
    200200(define (symbol-hash obj #!optional (bound hash-default-bound))
     
    216216
    217217(define-inline (%keyword-hash obj)
    218   (%string-hash (##sys#slot obj 1)) )
     218  (%string-hash (##sys#symbol-name obj)) )
    219219
    220220(define (keyword-hash obj #!optional (bound hash-default-bound))
Note: See TracChangeset for help on using the changeset viewer.