e/with-cycle* experiment

hyperfiddle · Sep 6, 2024 · a3c9951 · a3c9951
1 parent 7573ccc
commit a3c9951
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/hyperfiddle/electric3.cljc b/src/hyperfiddle/electric3.cljc
@@ -211,6 +211,13 @@ this tuple. Returns the concatenation of all body results as a single vector.
   `(let [a# (atom ~i) ~s (watch a#)]
      (reset! a# (do ~@body))))
 
+(defmacro with-cycle* [kf [s s0] & body] ; hacked support for amb cycles, fixme
+  `(let [kf# ~kf]
+     (e/diff-by kf#
+       (e/with-cycle [~s (e/as-vec ~s0)]
+         (let [~s (e/diff-by kf# ~s)]
+           (e/as-vec (do ~@body)))))))
+
 (hyperfiddle.electric3/defn Count [xs] (-> xs pure i/count input))
 
 ;; mklocal = declare lexical slot