[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/02: Fix (ice-9 read) for #\"
From: |
Andy Wingo |
Subject: |
[Guile-commits] 02/02: Fix (ice-9 read) for #\" |
Date: |
Sun, 14 Feb 2021 16:18:33 -0500 (EST) |
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)))