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

removed a hack, caused by bogus skip-char-set

This commit is contained in:
marting 1999-11-04 17:26:23 +00:00
parent 9512af2d3f
commit 491894920d
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scsh/meta-arg.scm
View File

@ -56,15 +56,8 @@
(lambda (fname) (lambda (fname)
(call-with-input-file fname (call-with-input-file fname
(lambda (port) (lambda (port)
(skip-char-set non-newline port) ; Skip the first (skip-char-set non-newline port) ; Skip the first line
(read-char port) ;read the newline
; 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)))))) (read-secondary-args port))))))