violation examples

src/hyperfiddle/incseq.cljc

@@ -45,7 +45,8 @@ successive sequence diffs. Incremental sequences are applicative functors with `
             [hyperfiddle.incseq.latest-concat-impl :as lc]
             [hyperfiddle.rcf :refer [tests]]
             [clojure.core :as cc]
-            [missionary.core :as m])
+            [missionary.core :as m]
+            [hyperfiddle.incseq.flow-protocol-enforcer :as fpe])
   (:import #?(:clj (clojure.lang IFn IDeref))
            missionary.Cancelled))
 
@@ -261,12 +262,7 @@ combined with given function.
 "} latest-product lp/flow)
 
 
-(def ^{:arglists '([incseq-of-incseqs])
-       :doc "
-Returns the incremental sequence defined by the concatenation of incremental sequences defined by given incremental
-sequence.
-"} latest-concat lc/flow)
-
+(defn latest-concat [is-of-is] (fpe/flow (lc/flow is-of-is)))
 
 (def ^{:arglists '([] [sentinel] [sentinel compare])
        :doc "

test/hyperfiddle/electric3_test.cljc

@@ -2278,3 +2278,10 @@
 (tests "uppercase call convention on locals"
   (with ((l/single {} (let [X (e/fn [] 1)] (tap (X)))) tap tap)
     % := 1))
+
+(tests
+  (let [!x (atom 0)]
+    (with
+      ((l/single {}
+         (tap (let [x (e/watch !x), I (e/fn [])] [(I) x]))) tap tap)
+      (some? %) := true)))