summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/read.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/read.c b/libguile/read.c
index ebd1119eb..469ed5b38 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -1391,6 +1391,11 @@ scm_read_shebang (scm_t_wchar chr, SCM port, scm_t_read_opts *opts)
return SCM_UNSPECIFIED;
}
+ else
+ {
+ scm_ungetc (c, port);
+ break;
+ }
}
while (i > 0)
scm_ungetc (name[--i], port);