carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-26 05:45:37 +03:00
Code Issues Projects Releases Wiki Activity

macros: add comp

Browse Source
This commit is contained in:
hellerve 2019-11-29 15:25:27 +01:00
parent bd397f8d50
commit 65db2bc2a8
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/Macros.carp
View File

@ -372,3 +372,13 @@ The expression must be evaluable at compile time.")
(list 'if (list 'defined? var)
()
(list 'defdynamic var expr)))
(defndynamic comp-internal [sym fns]
(if (= (length fns) 0)
sym
(list (car fns) (comp-internal sym (cdr fns)))))
(doc comp "composes the functions `fns` into one `fn`.")
(defmacro comp [:rest fns]
(let [x (gensym)]
(list 'fn [x] (comp-internal x fns))))