luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bump SCI: add time macro

Browse source
This commit is contained in:
Michiel Borkent 2023-10-30 18:23:57 +01:00
parent e746593f14
commit 838608647a
2 changed files with 1 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sci

@ -1 +1 @@
Subproject commit a0ac13803a80882e7f8f0c56055ee8ea7380902f Subproject commit f508bd776e05c04f8281cc663f829c0756e90007

10
src/babashka/impl/clojure/core.clj
View file

@ -15,15 +15,6 @@
(defn locking* [form bindings v f & args] (defn locking* [form bindings v f & args]
(apply @#'locking/locking form bindings v f args)) (apply @#'locking/locking form bindings v f args))
(defn time*
"Evaluates expr and prints the time it took. Returns the value of
expr."
[_ _ expr]
`(let [start# (. System (nanoTime))
ret# ~expr]
(prn (str "Elapsed time: " (/ (double (- (. System (nanoTime)) start#)) 1000000.0) " msecs"))
ret#))
(defn core-dynamic-var (defn core-dynamic-var
([sym] (core-dynamic-var sym nil)) ([sym] (core-dynamic-var sym nil))
([sym init-val] (sci/new-dynamic-var sym init-val {:ns clojure-core-ns}))) ([sym init-val] (sci/new-dynamic-var sym init-val {:ns clojure-core-ns})))
@ -160,7 +151,6 @@
'shutdown-agents (copy-core-var shutdown-agents) 'shutdown-agents (copy-core-var shutdown-agents)
'slurp (copy-core-var slurp) 'slurp (copy-core-var slurp)
'spit (copy-core-var spit) 'spit (copy-core-var spit)
'time (macrofy 'time time*)
'Throwable->map (copy-core-var Throwable->map) 'Throwable->map (copy-core-var Throwable->map)
'tap> (copy-core-var tap>) 'tap> (copy-core-var tap>)
'add-tap (copy-core-var add-tap) 'add-tap (copy-core-var add-tap)