From e5e31241f26c9da333afa0d9d506b61551512148 Mon Sep 17 00:00:00 2001
From: Akko <akko@nakadashi.lol>
Date: Mon, 4 Aug 2025 20:13:10 +0200
Subject: [PATCH] we don't ball

---
 public/js/main.js                    | 2 +-
 src/cljs/emptyhead/repl/core.cljs    | 7 +++++--
 src/cljs/emptyhead/thought/crud.cljs | 2 +-
 src/cljs/emptyhead/thought/eval.cljs | 4 ----
 4 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/public/js/main.js b/public/js/main.js
index e2c693f..701e56e 100644
--- a/public/js/main.js
+++ b/public/js/main.js
@@ -1,7 +1,7 @@
 var shadow$provide = {};
 var CLOSURE_NO_DEPS = true;
 var CLOSURE_BASE_PATH = '/js/cljs-runtime/';
-var CLOSURE_DEFINES = {"shadow.cljs.devtools.client.env.repl_pprint":false,"shadow.cljs.devtools.client.env.reload_strategy":"optimized","shadow.cljs.devtools.client.env.devtools_url":"","shadow.cljs.devtools.client.env.autoload":true,"shadow.cljs.devtools.client.env.proc_id":"bb76ccd2-54ed-4216-9c0b-62179542a3c1","shadow.cljs.devtools.client.env.use_document_protocol":false,"goog.ENABLE_DEBUG_LOADER":false,"shadow.cljs.devtools.client.env.server_port":9630,"shadow.cljs.devtools.client.env.server_token":"6426e681-0be2-46a0-aa05-c8c4cf7c0a3f","shadow.cljs.devtools.client.env.use_document_host":true,"shadow.cljs.devtools.client.env.module_format":"goog","goog.LOCALE":"en","shadow.cljs.devtools.client.env.build_id":"game","shadow.cljs.devtools.client.env.ignore_warnings":false,"goog.DEBUG":true,"shadow.cljs.devtools.client.env.log":true,"shadow.cljs.devtools.client.env.ssl":false,"shadow.cljs.devtools.client.env.enabled":true,"shadow.cljs.devtools.client.env.server_host":"localhost","shadow.cljs.devtools.client.env.worker_client_id":2,"goog.TRANSPILE":"never"};
+var CLOSURE_DEFINES = {"shadow.cljs.devtools.client.env.repl_pprint":false,"shadow.cljs.devtools.client.env.reload_strategy":"optimized","shadow.cljs.devtools.client.env.devtools_url":"","shadow.cljs.devtools.client.env.autoload":true,"shadow.cljs.devtools.client.env.proc_id":"80f60b4d-1b21-4117-a647-849d7efc6ba4","shadow.cljs.devtools.client.env.use_document_protocol":false,"goog.ENABLE_DEBUG_LOADER":false,"shadow.cljs.devtools.client.env.server_port":9630,"shadow.cljs.devtools.client.env.server_token":"8e194033-adb7-4606-984e-6e6b2e02f3e3","shadow.cljs.devtools.client.env.use_document_host":true,"shadow.cljs.devtools.client.env.module_format":"goog","goog.LOCALE":"en","shadow.cljs.devtools.client.env.build_id":"game","shadow.cljs.devtools.client.env.ignore_warnings":false,"goog.DEBUG":true,"shadow.cljs.devtools.client.env.log":true,"shadow.cljs.devtools.client.env.ssl":false,"shadow.cljs.devtools.client.env.enabled":true,"shadow.cljs.devtools.client.env.server_host":"localhost","shadow.cljs.devtools.client.env.worker_client_id":2,"goog.TRANSPILE":"never"};
 var COMPILED = false;
 var goog = goog || {};
 goog.global = this || self;
diff --git a/src/cljs/emptyhead/repl/core.cljs b/src/cljs/emptyhead/repl/core.cljs
index a4514c7..5ad399f 100644
--- a/src/cljs/emptyhead/repl/core.cljs
+++ b/src/cljs/emptyhead/repl/core.cljs
@@ -54,7 +54,7 @@
   ;; Exiting context, so its parent becomes the new parent.
   (fn [thought parent]
     (let [parent-ctx (-> parent prtc/value :data :parent prop/just-property)]
-      [parent-ctx (memtag/uid-of parent)])))
+      [parent-ctx nil])))
 
 (defn read [& input]
   (map parse-command input))
@@ -80,7 +80,7 @@
   (fn [thought parent]
     (let [ctx (:_parent (prtc/value parent))]
       (print "RUNNING " (:operator (prtc/value parent)) " ON ")
-      (print "CONTEXT " (prtc/reference ctx) " WITH ")
+      (print "CONTEXT " ctx " WITH \n")
       (print "STACK: ")
       (print (:return ctx))
       (print "\n\n")
@@ -109,4 +109,7 @@
     "hello"
     emptyhead.io.print
     .END
+    emptyhead.core.execute
+    emptyhead.core.execute
+    emptyhead.core.execute
     ))
diff --git a/src/cljs/emptyhead/thought/crud.cljs b/src/cljs/emptyhead/thought/crud.cljs
index 418b93c..dfa43fa 100644
--- a/src/cljs/emptyhead/thought/crud.cljs
+++ b/src/cljs/emptyhead/thought/crud.cljs
@@ -22,7 +22,7 @@
             :ext-contract ext-contract
             :ext-stages ext-stages
             :return []
-            :transient (not (false? transient))))
+            :transient nil))
 
 (defn register-thought!
   "Create a thought and register it in the state.
diff --git a/src/cljs/emptyhead/thought/eval.cljs b/src/cljs/emptyhead/thought/eval.cljs
index e9398f6..7cbf070 100644
--- a/src/cljs/emptyhead/thought/eval.cljs
+++ b/src/cljs/emptyhead/thought/eval.cljs
@@ -45,10 +45,6 @@
           ;; Fold return value into `parent`.
           parent (return/with-return parent returns)]
 
-                                        ; XXX FUCK IT WE BALL (??)
-      (prtc/uncopy! parent)
-      (prtc/uncopy! thought)
-
       ;; Recur if there's remaining aspects, otherwise return `parent`.
       (if (not-empty (thought/stages th))
         (recur th parent)