From 37ce10b30af08d7003ed12ee6072368be6519a79 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 30 Aug 2021 20:31:14 +0200
Subject: Fix minor syntax error for set/r!

---
 tests/util.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'tests')

diff --git a/tests/util.scm b/tests/util.scm
index ed5abfd1..57d2e538 100644
--- a/tests/util.scm
+++ b/tests/util.scm
@@ -8,7 +8,11 @@
   '(3 4 5)
   (filter-sorted (lambda (x) (<= 3 x 5)) (iota 10)))
 
-(test-equal "set/r! single"
+(test-equal "set/r! = single"
   #f
   (let ((x #t))
     (set/r! x = not)))
+
+(test-error
+ 'syntax-error
+ (test-read-eval-string "(set/r! x err not)"))
-- 
cgit v1.2.3