[Guile-commits] 02/02: Fix (ice-9 read) for #\"

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit a194d04d11ddfaa02c310f062e97e6d25a77b561
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Sun Feb 14 22:17:54 2021 +0100

    Fix (ice-9 read) for #\"
    
    * module/ice-9/read.scm (read): Fix #\ followed by a delimiter.
---
 module/ice-9/read.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 808aa93..e0aecfe 100644
--- 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)))