carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-11-04 01:25:04 +03:00
Code Issues Projects Releases Wiki Activity

core: fix bench and ignore form, because they were buggy

Browse Source
This commit is contained in:
hellerve 2018-02-01 18:01:45 +01:00
parent 4c14cea5b0
commit 27a4a3edff
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/Bench.carp
View File

@ -27,7 +27,7 @@
(defn ns-iter-inner [f n] (defn ns-iter-inner [f n]
(let [start (get-time-elapsed)] (let [start (get-time-elapsed)]
(do (do
(for [i 0 n] (ignore f)) (for [i 0 n] (ignore (f)))
(Double.- (get-time-elapsed) start)))) (Double.- (get-time-elapsed) start))))
(defn print-bench-results [res total] (defn print-bench-results [res total]

2
core/Macros.carp
View File

@ -196,4 +196,4 @@
(list 'IO.println (list 'ref (build-str* forms)))) (list 'IO.println (list 'ref (build-str* forms))))
(defmacro ignore [form] (defmacro ignore [form]
(let [_ form] ())) (list 'let (array '_ form) (list)))