Fix (ice-9 read) for #\"

* module/ice-9/read.scm (read): Fix #\ followed by a delimiter.

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 808aa93368a0c46cc8429001e69b02f84bc21095..e0aecfea997c4c88de915151dcabe7a3636517f5 100644 (file)
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -346,6 +346,8 @@
       (cond
        ((eof-object? ch)
         (input-error "unexpected end of input after #\\"))
+       ((delimiter? ch)
+        ch)
        (else
         (let* ((tok (read-token ch))
                (len (string-length tok)))