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)