From fb89508bef75b19dbcd7da24113bd8943159cd8d Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Wed, 18 May 2022 18:31:11 -0400
Subject: [PATCH] Play with base ref forms

---
 src/ludus/interpreter.clj | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/src/ludus/interpreter.clj b/src/ludus/interpreter.clj
index 8ae5ced..bf2ab89 100644
--- 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)
 
     ")