From 3111fa93be7d61167928663d80afadc39ef84a21 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Fri, 8 Oct 1999 18:16:35 +0000
Subject: [PATCH] Hack: removed read-char to hack the bogus skip-char-set

---
 scsh/meta-arg.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/scsh/meta-arg.scm b/scsh/meta-arg.scm
index 597060e..fcfde69 100644
--- a/scsh/meta-arg.scm
+++ b/scsh/meta-arg.scm
@@ -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))))))