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

Makes last argument to inline-c optional

Browse Source
This commit is contained in:
Tim Dévé 2020-10-26 18:20:01 +00:00
parent 0a7550484f
commit c0bfc07192
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/Macros.carp
View File

@ -722,8 +722,8 @@
(list 'fn [x] (comp-internal x fns))))
(doc inline-c "Inlines some custom C code.")
(defmacro inline-c [name defcode declcode]
(eval (list 'deftemplate name (list) defcode declcode)))
(defmacro inline-c [name defcode :rest declcode]
(eval (list 'deftemplate name (list) defcode (if (empty? declcode) "" (car declcode)))))
(deftemplate bottom (Fn [] a) "$a $NAME()" "$DECL { abort(); }")