diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-30 20:31:14 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-30 20:31:14 +0200 |
commit | 37ce10b30af08d7003ed12ee6072368be6519a79 (patch) | |
tree | eb873761ae436bf9856108ea9d7037aa5ebd4471 | |
parent | Allow partial change and removal of XML Namespaces. (diff) | |
download | calp-37ce10b30af08d7003ed12ee6072368be6519a79.tar.gz calp-37ce10b30af08d7003ed12ee6072368be6519a79.tar.xz |
Fix minor syntax error for set/r!
Diffstat (limited to '')
-rw-r--r-- | module/calp/util.scm | 2 | ||||
-rw-r--r-- | tests/util.scm | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/module/calp/util.scm b/module/calp/util.scm index 9b792fe0..06767658 100644 --- a/module/calp/util.scm +++ b/module/calp/util.scm @@ -194,7 +194,7 @@ ;; only evaluates the final form once (define-syntax set/r! - (syntax-rules () + (syntax-rules (=) ((_ args ... v = something) (begin (set! args ... v = something) 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)")) |