stuff

src/cljs/emptyhead/thought/crud.cljs

@@ -13,9 +13,7 @@
   You may want `register-thought!` instead."
   [operator & {:keys [data ext-contract ext-stages transient]
                :or {data {} ext-contract {}
-                    ext-stages [[:thought operator :pre] [:thought operator]
-                                [:PRE-EXECUTE] [:EXECUTE] [:POST-EXECUTE]
-                                [:thought operator :post]]
+                    ext-stages [[:PRE-EXECUTE] [:EXECUTE] [:POST-EXECUTE]]
                     transient true}}]
   (hash-map :operator operator
             :data data

src/cljs/emptyhead/thought/eval.cljs

@@ -38,7 +38,7 @@
           ;; If it's time for `thought`'s implementation to run, do so,
           ;; potentially modifying `parent`.
           [parent & returns]
-          (if (= cur [:EXECUTE]) ;; NOTE the magic value is now [:EXECUTE] since otherwise nothing could be bound to the global [:emptyhead] propspace
+          (if (= '() (thought/stages th)) ;; NOTE the magic value is now [:EXECUTE] since otherwise nothing could be bound to the global [:emptyhead] propspace
             (impl! th parent)
             [parent nil])