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

1999-10-08 18:16:35 +00:00
parent de5a415580
commit 3111fa93be
1 changed files with 8 additions and 1 deletions
@@ -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))))))