Special case of (set). Close #187

2023-04-12 10:34:12 -06:00
parent 9089489ed3
commit 76a9562aba
3 changed files with 29 additions and 2 deletions
--- a/src/test/cases/BasicTestCase.kiss
+++ b/src/test/cases/BasicTestCase.kiss
@@ -960,4 +960,13 @@ From:[(assert false (+ \"false \" \"should \" \"have \" \"been \" \"true\"))]" m
                            e)
                        (Assert.fail))
                    e)
-                (Assert.fail)))))
+                (Assert.fail)))))
+        
+
+(function _testQuickPrintOnSetVar []
+    (let [&mut v 5]
+        (set (trace v) 7)
+        (set (print v) 8)
+        (set (Prelude.print v) 9)
+        (set ~v 6)
+        (Assert.equals v 6)))