From 496471d630d653d09ac6564c8fb6545b284240f7 Mon Sep 17 00:00:00 2001 From: unwox Date: Sun, 14 Sep 2025 19:24:15 +0600 Subject: allow NO-ESCAPE to accept several args --- macros.fnl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'macros.fnl') diff --git a/macros.fnl b/macros.fnl index fdfe17c..6053f6a 100644 --- a/macros.fnl +++ b/macros.fnl @@ -71,8 +71,10 @@ (add ">") (each [_ item (pairs body)] (if - (and (sequence? item) (= (. item 1) "NO-ESCAPE")) - (add (. item 2)) + (and (sequence? item) + (= (. item 1) "NO-ESCAPE")) + (each [i pair (ipairs item)] + (when (~= i 1) (add (. item i)))) (sequence? item) (set result (concat result (inner-compile item))) (list? item) -- cgit v1.2.3