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/c-backend.scm

    r12546 r12612  
    690690             (gen #t to "=C_make_character(" (char->integer lit) ");") )
    691691            ((symbol? lit)              ; handled slightly specially (see C_h_intern_in)
    692              (let* ([str (##sys#slot lit 1)]
     692             (let* ([str (##sys#symbol-name lit)]
    693693                    [cstr (c-ify-string str)]
    694694                    [len (##sys#size str)] )
     
    13951395          (string-append "\x55" (number->string lit) "\x00") )
    13961396         ((symbol? lit)
    1397           (let ((str (##sys#slot lit 1)))
     1397          (let ((str (##sys#symbol-name lit)))
    13981398            (string-append
    13991399             "\x01"
Note: See TracChangeset for help on using the changeset viewer.