We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 8d778aa commit 685e825Copy full SHA for 685e825
src/main/frontend/handler/profiler.cljs
@@ -26,7 +26,6 @@
26
(vswap! *fn-symbol->key->time-sum update-in [fn-sym k] #(+ % elapsed-time)))
27
r))
28
arity-n-fns (arity-n-fn 20 f)]
29
- (prn :arity-n-fns arity-n-fns)
30
(doseq [n arity-ns]
31
(g/set f (str "cljs$core$IFn$_invoke$arity$" n) (nth arity-n-fns n)))
32
f))
@@ -35,8 +34,7 @@
35
34
[ns munged-name fn-sym original-fn-obj custom-key-fn]
36
(let [ns-obj (find-ns-obj ns)
37
profile-fn (get-profile-fn fn-sym original-fn-obj custom-key-fn)]
38
- (g/set ns-obj munged-name profile-fn)
39
- ))
+ (g/set ns-obj munged-name profile-fn)))
40
41
(defn register-fn!
42
"(custom-key-fn args-seq result) return non-nil key"
@@ -82,6 +80,4 @@
82
80
;; test multi-arity, variadic fn
83
81
(defn test-fn-to-profile
84
([a b] 1)
85
- ([b c d] 2))
86
-
87
- )
+ ([b c d] 2)))
0 commit comments