Changeset 30579 in project


Ignore:
Timestamp:
03/18/14 09:04:09 (7 years ago)
Author:
evhan
Message:

r7rs/base: Fix peek-u8 to correctly return eof (patch credit to Seth Alves)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/r7rs/trunk/scheme.base.scm

    r30325 r30579  
    721721  (case-lambda
    722722    (()
    723      (char->integer (peek-char)))
     723     (let ((c (peek-char)))
     724       (if (eof-object? c) c
     725           (char->integer c))))
    724726    ((port)
    725727     (##sys#check-input-port port #t 'peek-u8)
    726      (char->integer (peek-char port)))))
     728     (let ((c (peek-char port)))
     729       (if (eof-object? c) c
     730           (char->integer c))))))
    727731
    728732(define read-string
Note: See TracChangeset for help on using the changeset viewer.