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

    r12595 r12612  
    390390                                        (cond [(char-name obj)
    391391                                               => (lambda (cn)
    392                                                     (out (##sys#slot cn 1) col) ) ]
     392                                                    (out (##sys#symbol-name cn) col) ) ]
    393393                                              [(fx< code 32)
    394394                                               (out "x" col)
Note: See TracChangeset for help on using the changeset viewer.