scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix: 

FIELD-READER did return (values EOF #()) instead of (values EOF '()) on an empty port.
This commit is contained in:
mainzelm 2003-12-17 10:08:17 +00:00
parent 9378e2ff27
commit 2aac5914d6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/fr.scm
View File

@ -350,7 +350,7 @@
;;; Reading and parsing records ;;; Reading and parsing records
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; (field-reader [field-parser rec-reader]) -> reader ;;; (field-reader [field-parser rec-reader]) -> reader
;;; (reader [port]) -> [raw-record parsed-record] or [eof #()] ;;; (reader [port]) -> [raw-record parsed-record] or [eof '()]
;;; ;;;
;;; This is the field reader, which is basically just a composition of ;;; This is the field reader, which is basically just a composition of
;;; RECORD-READER and FIELD-PARSER. ;;; RECORD-READER and FIELD-PARSER.
@ -363,7 +363,7 @@
(lambda maybe-port (lambda maybe-port
(let ((record (apply rec-reader maybe-port))) (let ((record (apply rec-reader maybe-port)))
(if (eof-object? record) (if (eof-object? record)
(values record '#()) (values record '())
(values record (parser record))))))) (values record (parser record)))))))