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/eval.scm

    r12559 r12612  
    157157          (##core#inline "C_fixnum_modulo" cache-h n)
    158158          (begin
    159               (set! cache-s s)
    160               (set! cache-h (##core#inline "C_hash_string" (##sys#slot s 1)))
    161               (##core#inline "C_fixnum_modulo" cache-h n))))))
     159            (set! cache-s s)
     160            (set! cache-h
     161              (let ((sn (##sys#slot s 1)))
     162                (##core#inline "C_hash_string" sn)))
     163            (##core#inline "C_fixnum_modulo" cache-h n))))))
    162164
    163165(define (##sys#hash-table-ref ht key)
     
    186188    (do ((i 0 (fx+ i 1)))
    187189        ((fx>= i len))
    188       (##sys#for-each (lambda (bucket)
    189                    (p (##sys#slot bucket 0)
    190                       (##sys#slot bucket 1) ) )
    191                  (##sys#slot ht i) ) ) ) )
     190      (for-each
     191       (lambda (bucket)
     192         (p (##sys#slot bucket 0)
     193            (##sys#slot bucket 1) ) )
     194       (##sys#slot ht i) ) ) ) )
    192195
    193196(define ##sys#hash-table-location
     
    10061009        [display display] )
    10071010    (lambda (uname lib)
    1008       (let ([id (##sys#->feature-id uname)])
     1011      (let ((id (##sys#->feature-id uname))
     1012            (sname (##sys#symbol->string uname)))
    10091013        (or (memq id ##sys#features)
    10101014            (let ([libs
    10111015                   (if lib
    10121016                       (##sys#list lib)
    1013                        (cons (##sys#string-append (##sys#slot uname 1) ##sys#load-library-extension)
     1017                       (cons (##sys#string-append
     1018                              sname
     1019                              ##sys#load-library-extension)
    10141020                             (dynamic-load-libraries) ) ) ]
    10151021                  [top
     
    10171023                    (string-append
    10181024                     "C_"
    1019                      (##sys#string->c-identifier (##sys#slot uname 1))
     1025                     (##sys#string->c-identifier sname)
    10201026                     "_toplevel") ) ] )
    10211027              (when (load-verbose)
     
    13051311   (define (->string x)
    13061312     (cond ((string? x) x)
    1307            ((symbol? x) (##sys#slot x 1))
     1313           ((symbol? x) (##sys#symbol->string x 1))
    13081314           ((number? x) (##sys#number->string x))
    13091315           (else (error "invalid extension version" x)) ) )
Note: See TracChangeset for help on using the changeset viewer.