akko/nothoughts
1
0
Fork 0
Code Issues 4 Pull Requests Projects Releases Wiki Activity

we don't ball

Browse Source
This commit is contained in:
Akko
2025-08-04 20:13:10 +02:00
parent 9495868c2e
commit e5e31241f2
4 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
public/js/main.js
View File

@@ -1,7 +1,7 @@
var shadow$provide = {}; var shadow$provide = {};
var CLOSURE_NO_DEPS = true; var CLOSURE_NO_DEPS = true;
var CLOSURE_BASE_PATH = '/js/cljs-runtime/'; 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 COMPILED = false;
var goog = goog || {}; var goog = goog || {};
goog.global = this || self; goog.global = this || self;

7
src/cljs/emptyhead/repl/core.cljs
View File

@@ -54,7 +54,7 @@
;; Exiting context, so its parent becomes the new parent. ;; Exiting context, so its parent becomes the new parent.
(fn [thought parent] (fn [thought parent]
(let [parent-ctx (-> parent prtc/value :data :parent prop/just-property)] (let [parent-ctx (-> parent prtc/value :data :parent prop/just-property)]
[parent-ctx (memtag/uid-of parent)]))) [parent-ctx nil])))
(defn read [& input] (defn read [& input]
(map parse-command input)) (map parse-command input))
@@ -80,7 +80,7 @@
(fn [thought parent] (fn [thought parent]
(let [ctx (:_parent (prtc/value parent))] (let [ctx (:_parent (prtc/value parent))]
(print "RUNNING " (:operator (prtc/value parent)) " ON ") (print "RUNNING " (:operator (prtc/value parent)) " ON ")
(print "CONTEXT " (prtc/reference ctx) " WITH ") (print "CONTEXT " ctx " WITH \n")
(print "STACK: ") (print "STACK: ")
(print (:return ctx)) (print (:return ctx))
(print "\n\n") (print "\n\n")
@@ -109,4 +109,7 @@
"hello" "hello"
emptyhead.io.print emptyhead.io.print
.END .END
emptyhead.core.execute
emptyhead.core.execute
emptyhead.core.execute
)) ))

2
src/cljs/emptyhead/thought/crud.cljs
View File

@@ -22,7 +22,7 @@
:ext-contract ext-contract :ext-contract ext-contract
:ext-stages ext-stages :ext-stages ext-stages
:return [] :return []
:transient (not (false? transient)))) :transient nil))
(defn register-thought! (defn register-thought!
"Create a thought and register it in the state. "Create a thought and register it in the state.

4
src/cljs/emptyhead/thought/eval.cljs
View File

@@ -45,10 +45,6 @@
;; Fold return value into `parent`. ;; Fold return value into `parent`.
parent (return/with-return parent returns)] 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`. ;; Recur if there's remaining aspects, otherwise return `parent`.
(if (not-empty (thought/stages th)) (if (not-empty (thought/stages th))
(recur th parent) (recur th parent)