Hack: removed read-char to hack the bogus skip-char-set

This commit is contained in:
marting 1999-10-08 18:16:35 +00:00
parent de5a415580
commit 3111fa93be
1 changed files with 8 additions and 1 deletions

View File

@ -57,7 +57,14 @@
(call-with-input-file fname
(lambda (port)
(skip-char-set non-newline port) ; Skip the first
(read-char port) ; line of text.
; WARNING JMG HACK
; (read-char port) ; JMG this should kill the newline
; but since skip-char-set is corrupt
; (it eats the last char)
; I omit the read-char to hack around
(read-secondary-args port))))))