Changeset 7801 in project


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

fixed bug in read-line special casing (again. again thanks to Mario)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/library.scm

    r7794 r7801  
    30383038                      (fx> limit (fx+ pos2 1))
    30393039                      (eq? (##core#inline "C_subchar" buf (fx+ pos2 1)) #\newline) )
    3040                  (k pos2 (fx+ pos2 1)) )
     3040                 (k pos2 (fx+ pos2 2)) )
    30413041                (else (loop (fx+ pos2 1))) ) ) ) ) )
    30423042
Note: See TracChangeset for help on using the changeset viewer.