Play with base ref forms

2022-05-18 18:31:11 -04:00 · 2022-05-18 18:31:11 -04:00 · fb89508bef
commit fb89508bef
parent 9e25f24b3f
1 changed files with 3 additions and 9 deletions
--- a/src/ludus/interpreter.clj
+++ b/src/ludus/interpreter.clj
@ -370,16 +370,10 @@

  (def source "

-    fn swap! (r, f) -> {
-      let val = deref (r)
-      let new = f (val)
-      set! (r, new)
-    }
+    ref foo = nil
+    ref bar = nil

-    ref foo = 0
-
-    swap! (foo, inc)
-    swap! (foo, inc)
+    eq (foo, bar)

    ")