From 1fd989fd49de7cd4993d00b58437f1c44b7784e9 Mon Sep 17 00:00:00 2001
From: Andrey Listopadov <a.listopadov@rt-solar.ru>
Date: Mon, 8 May 2023 13:15:07 +0300
Subject: fix gensym usage

---
 init-macros.fnl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'init-macros.fnl')

diff --git a/init-macros.fnl b/init-macros.fnl
index 0489f48..3c54fec 100644
--- a/init-macros.fnl
+++ b/init-macros.fnl
@@ -847,7 +847,7 @@ macro checks for lists in bindings."}
     (each [i v (ipairs binding-vec)]
       (when (= 0 (% i 2))
         (let [key (. binding-vec (- i 1))
-              gs (gensym i)]
+              gs (gensym (tostring i))]
           (assert-compile (not (list? key)) "loop macro doesn't support multiple-value destructuring" key)
           ;; [sym1# sym2# etc...], for the function application below
           (table.insert gensyms gs)
-- 
cgit v1.2.3