From 3d2b30f5c8bfb4363eeb676257c738dd596e6191 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 27 Jul 2020 01:07:50 +0200
Subject: Merge mod!:s functionality into set!

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

(limited to 'tests/util.scm')

diff --git a/tests/util.scm b/tests/util.scm
index 33ebdcf6..6ad58a24 100644
--- a/tests/util.scm
+++ b/tests/util.scm
@@ -1,5 +1,10 @@
-(((util) filter-sorted))
+(((util) filter-sorted set/r!))
 
 (test-equal "Filter sorted"
   '(3 4 5)
   (filter-sorted (lambda (x) (<= 3 x 5)) (iota 10)))
+
+(test-equal "set/r! single"
+  #f
+  (let ((x #t))
+    (set/r! x = not)))
-- 
cgit v1.2.3