kiss-lang/nat-archive-tool
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

&body macro arguments. Close #7

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-07-12 20:08:12 -06:00
parent b05da63720
commit 0afd588eb5
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/nat/ArchiveController.kiss
View File

@@ -107,7 +107,7 @@
(set lastCollector (_composeArgCollector collectedArgs arg lastCollector))) (set lastCollector (_composeArgCollector collectedArgs arg lastCollector)))
(lastCollector))) (lastCollector)))
(defmacro defcommand [name args &rest body] (defmacro defcommand [name args &body body]
(let [argPairs (let [argPairs
(groups (expList args) 2) (groups (expList args) 2)
methodArgs methodArgs

4
src/nat/Lib.kiss
View File

@@ -31,7 +31,7 @@
// Retrieve multiple components from an Entity with mutable access. // Retrieve multiple components from an Entity with mutable access.
// All components will be serialized after the block is done. // All components will be serialized after the block is done.
(defmacro withWritableComponents [archive e bindings &rest body] (defmacro withWritableComponents [archive e bindings &body body]
(let [bindingPairs (let [bindingPairs
(groups (expList bindings) 2 Throw) (groups (expList bindings) 2 Throw)
bindingList bindingList
@@ -49,7 +49,7 @@
,@saveList ,@saveList
,retValSymbol))) ,retValSymbol)))
(defmacro withWritableEntry [archive e &rest body] (defmacro withWritableEntry [archive e &body body]
(let [retValSymbol (let [retValSymbol
(symbol)] (symbol)]
`(let [,retValSymbol {,@body}] `(let [,retValSymbol {,@body}]