diff options
-rw-r--r-- | libguile/read.c | 5 |
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); |