From b6356af70f62c8cee947c606531de44860143609 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 29 Dec 1996 10:37:58 +0000
Subject: [PATCH] 	* read.c (scm_lreadr): Encountering EOF after skipping
 a SCSH  	style block comment is no longer considered an error.

---
 libguile/read.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/libguile/read.c b/libguile/read.c
index 48badf976..229681a1f 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -283,6 +283,7 @@ scm_lreadr (tok_buf, port, case_i, sharp, copy)
 
 tryagain:
   c = scm_flush_ws (port, s_read);
+tryagain_no_flush_ws:
   switch (c)
     {
     case EOF:
@@ -363,7 +364,9 @@ tryagain:
 	  /* start of a shell script.  Parse as a block comment,
 	     terminated by !#, just like SCSH.  */
 	  skip_scsh_block_comment (port);
-	  goto tryagain;
+	  /* EOF is not an error here */
+	  c = scm_flush_ws (port, (char *)NULL);
+	  goto tryagain_no_flush_ws;
 
 	case '*':
 	  j = scm_read_token (c, tok_buf, port, case_i, 0);