mirror of
https://github.com/peklaiho/madlisp.git
synced 2024-11-26 07:04:27 +00:00
6 lines
210 B
Plaintext
6 lines
210 B
Plaintext
;; Measure how long it takes to execute f
|
|
(defn timeFn (f) (let (st (mtime)) (f) (- (mtime) st)))
|
|
|
|
;; Allow λ instead of fn for lambda
|
|
(defmacro λ (args body) (quasiquote (fn (unquote args) (unquote body))))
|