From 54294f7c864b9597c3775793015f600b1022594f Mon Sep 17 00:00:00 2001
From: Andrey Listopadov <andreyorst@gmail.com>
Date: Tue, 16 Mar 2021 22:31:20 +0300
Subject: fix: more portable conj

Should now work on luajit
---
 init.fnl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'init.fnl')

diff --git a/init.fnl b/init.fnl
index 1b84cda..7522005 100644
--- a/init.fnl
+++ b/init.fnl
@@ -549,7 +549,7 @@ See `hash-map' for creating empty associative tables."
      (let [tbl (or tbl (empty []))]
        (if (map? tbl)
            (tset tbl (. x 1) (. x 2))
-           (insert tbl x))))
+           (tset tbl (+ 1 (length tbl)) x))))
    tbl)
   ([tbl x & xs]
    (apply conj (conj tbl x) xs)))
-- 
cgit v1.2.3