wingo pushed a commit to branch wip-whippet
in repository guile.
commit e2d6ec6109241e1348a8e92f605cb7bcb4e52194
Author: Andy Wingo <wi...@pobox.com>
AuthorDate: Wed Jul 16 11:05:56 2025 +0200
Revert "Update srfi-10.test"
This reverts commit 60a1d5541395f4ee3357f308dbb74e22882aa7ac.
---
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 6fa59214c..0ae135bef 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 (call-with-input-string "#,(rx \"^foo$\")" read)))
- (and (->bool (regexp-exec rx "foo"))
- (not (regexp-exec rx "bar foo frob"))))))
+ (let* ((rx #,(rx "^foo$")))
+ (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
