Hack: removed read-char to hack the bogus skip-char-set
This commit is contained in:
parent
de5a415580
commit
3111fa93be
|
@ -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))))))
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue