MB
Size: a a a
MB
MB
ST
(def f [x] (register-call 'f x) (inc x))
MB
MB
(def f [x] (register-call 'f x) (inc x))
MB
(def f [x] (set! #'clojure.core/+ *) (inc x))
а это чистая?ST
MB
ST
(def f [x] (tap> x) (inc x))
MB
ST
(defn tap>
"sends x to any taps. Will not block. Returns true if there was room in the queue,
false if not (dropped)."
{:added "1.10"}
[x]
(force tap-loop)
(.offer tapq (if (nil? x) ::tap-nil x)))
ST
MB
MB
MB
MB
ST
MB
MB
ST