we don't ball
This commit is contained in:
@@ -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
|
||||
))
|
||||
|
||||
Reference in New Issue
Block a user