fix typos

hyperfiddle · Jul 25, 2024 · 3c46e98 · 3c46e98
1 parent 6f04d01
commit 3c46e98
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/hyperfiddle/electric/impl/runtime_de.cljc b/src/hyperfiddle/electric/impl/runtime_de.cljc
@@ -582,7 +582,7 @@ T T T -> (EXPR T)
             (aset prv input-sub-slot-next sub)
             (aset nxt input-sub-slot-prev sub)
             (aset sub input-sub-slot-prev prv)
-            (aset sub input-sub-slot-prev nxt))
+            (aset sub input-sub-slot-next nxt))
           (do (aset input input-slot-subs sub)
               (aset sub input-sub-slot-prev sub)
               (aset sub input-sub-slot-next sub))))
@@ -757,7 +757,7 @@ T T T -> (EXPR T)
               (when (identical? s (aget s input-sub-slot-ready))
                 (aset s input-sub-slot-ready (aget peer peer-slot-sub-ready))
                 (aset peer peer-slot-sub-ready s))))
-        (let [n (aget sub input-sub-slot-next)]
+        (let [n (aget s input-sub-slot-next)]
           (when-not (identical? n sub) (recur n))))))
   remote)