Skip to content

Commit

Permalink
code formatting
Browse files Browse the repository at this point in the history
  • Loading branch information
jlangch committed Mar 29, 2024
1 parent 5feee9e commit 42773a6
Showing 1 changed file with 19 additions and 13 deletions.
32 changes: 19 additions & 13 deletions src/main/resources/com/github/jlangch/venice/core.venice
Original file line number Diff line number Diff line change
Expand Up @@ -1942,7 +1942,8 @@
:see-also '("postwalk-replace" "prewalk") }

prewalk-replace [smap form]
(core/prewalk (fn [x] (if (contains? smap x) (smap x) x)) form))

(core/prewalk (fn [x] (if (contains? smap x) (smap x) x)) form))


(defn
Expand Down Expand Up @@ -2007,6 +2008,7 @@
(recur)))
"venice-tap-loop")))


(defn
^{ :arglists '("(add-tap f)")
:doc """
Expand All @@ -2028,10 +2030,11 @@
"tap>") }

add-tap [f]
(assert (fn? f))
(force tap-loop)
(swap! tapset conj f)
nil)

(assert (fn? f))
(force tap-loop)
(swap! tapset conj f)
nil)


(defn
Expand All @@ -2049,10 +2052,11 @@
"add-tap"
"tap>") }

remove-tap [f]
(assert (fn? f))
(swap! tapset disj f)
nil)
remove-tap [f]

(assert (fn? f))
(swap! tapset disj f)
nil)


(defn
Expand All @@ -2072,8 +2076,9 @@
"tap>") }

clear-taps []
(reset! tapset #{})
nil)

(reset! tapset #{})
nil)


(defn
Expand All @@ -2094,8 +2099,9 @@
"clear-taps") }

tap> [x]
(force tap-loop)
(offer! tapq x))

(force tap-loop)
(offer! tapq x))



Expand Down

0 comments on commit 42773a6

Please sign in to comment.