Changeset 7018 in project


Ignore:
Timestamp:
12/03/07 13:45:07 (13 years ago)
Author:
felix winkelmann
Message:

elf suggested putting quotes around the port name, when printing it

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/library.scm

    r6839 r7018  
    28302830                ((##core#inline "C_portp" x)
    28312831                 (if (##sys#slot x 1)
    2832                      (outstr port "#<input port ")
    2833                      (outstr port "#<output port ") )
     2832                     (outstr port "#<input port \"")
     2833                     (outstr port "#<output port \"") )
    28342834                 (outstr port (##sys#slot x 3))
    2835                  (outchr port #\>) )
     2835                 (outstr port "\">") )
    28362836                ((##core#inline "C_vectorp" x)
    28372837                 (let ((n (##core#inline "C_block_size" x)))
Note: See TracChangeset for help on using the changeset viewer.