we don't ball

This commit is contained in:
2025-08-04 20:13:10 +02:00
parent 25b94b8d85
commit e659b1d4e0
3 changed files with 6 additions and 7 deletions

View File

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