Changes backlog

This commit is contained in:
2025-11-10 16:36:52 +01:00
parent 9cf2e4476c
commit 4514f9c8e8
2 changed files with 75 additions and 3 deletions

View File

@@ -8,13 +8,14 @@
(defn make-thought
"Helper function to make thought object.
You may want `register-thought!` instead."
[operator & {:keys [data ext-stages]
[operator & {:keys [data ext-stages return]
:or {data {}
ext-stages [[:PRE-EXECUTE] [:EXECUTE] [:POST-EXECUTE]]}}]
ext-stages [[:PRE-EXECUTE] [:EXECUTE] [:POST-EXECUTE]]
return []}}]
(hash-map :operator operator
:data data
:ext-stages ext-stages
:return []))
:return return))
(defn register-thought!
"Create a thought and register it in the state.