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

1999-11-04 17:26:23 +00:00 · 1999-11-04 17:26:23 +00:00 · 491894920d
parent 9512af2d3f
commit 491894920d
1 changed files with 2 additions and 9 deletions
--- a/scsh/meta-arg.scm
+++ b/scsh/meta-arg.scm
@ -56,15 +56,8 @@
    (lambda (fname)
      (call-with-input-file fname
 	(lambda (port)
-	  (skip-char-set non-newline port)	; Skip the first
-	
-	  ; 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
-
+	  (skip-char-set non-newline port)	; Skip the first line
+	  (read-char port)  ;read the newline
 	  (read-secondary-args port))))))