From 491894920d93d2c3b05f064b5bf1c3a4067c6ff3 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Thu, 4 Nov 1999 17:26:23 +0000
Subject: [PATCH] removed a hack, caused by bogus skip-char-set

---
 scsh/meta-arg.scm | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/scsh/meta-arg.scm b/scsh/meta-arg.scm
index fcfde69..26bd78e 100644
--- 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))))))