Changeset 7794 in project


Ignore:
Timestamp:
01/19/08 20:49:05 (12 years ago)
Author:
felix winkelmann
Message:

fixed bug in read-line support code in library [Thanks to Mario]

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/library.scm

    r7776 r7794  
    30373037                ((and (eq? c #\return)
    30383038                      (fx> limit (fx+ pos2 1))
    3039                       (eq (##core#inline "C_subchar" buf (fx+ pos2 1)) #\newline) )
     3039                      (eq? (##core#inline "C_subchar" buf (fx+ pos2 1)) #\newline) )
    30403040                 (k pos2 (fx+ pos2 1)) )
    30413041                (else (loop (fx+ pos2 1))) ) ) ) ) )
Note: See TracChangeset for help on using the changeset viewer.