we don't ball

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
     ))

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.

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)