wingo pushed a commit to branch wip-whippet
in repository guile.
commit 60a1d5541395f4ee3357f308dbb74e22882aa7ac
Author: Andy Wingo <wi...@pobox.com>
AuthorDate: Tue Jul 15 13:00:57 2025 +0200
Update srfi-10.test
* test-suite/tests/srfi-10.test: Update to not expect reader
installation to take effect while reading. Not sure why this one
changed though!
---
test-suite/tests/srfi-10.test | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/test-suite/tests/srfi-10.test b/test-suite/tests/srfi-10.test
index 0ae135bef..6fa59214c 100644
--- a/test-suite/tests/srfi-10.test
+++ b/test-suite/tests/srfi-10.test
@@ -27,9 +27,9 @@
(with-test-prefix "hash-comma read extension"
(pass-if "basic feature"
- (let* ((rx #,(rx "^foo$")))
- (and (->bool (regexp-exec rx "foo"))
- (not (regexp-exec rx "bar foo frob"))))))
+ (let ((rx (call-with-input-string "#,(rx \"^foo$\")" read)))
+ (and (->bool (regexp-exec rx "foo"))
+ (not (regexp-exec rx "bar foo frob"))))))
;; Disable SRFI-10 reader syntax again, to avoid messing up
;; syntax-case's unsyntax
