From 98e824f59fbddac056afac108ee5b5fc2c7b8963 Mon Sep 17 00:00:00 2001
From: Andrey Orst <andreyorst@gmail.com>
Date: Sun, 15 Nov 2020 19:27:07 +0300
Subject: fix(core): fix seq function not handling tables with number keys

---
 cljlib.fnl     | 2 +-
 tests/core.fnl | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/cljlib.fnl b/cljlib.fnl
index 98bb98e..d96d8da 100644
--- a/cljlib.fnl
+++ b/cljlib.fnl
@@ -273,7 +273,7 @@ Additionally you can use [`conj`](#conj) and [`apply`](#apply) with
                (let [assoc-res (empty [])]
                  (each [k v (pairs col)]
                    (if (and (not assoc?)
-                            (not (= (type k) :number)))
+                            (map? col))
                        (set assoc? true))
                    (insert res v)
                    (insert assoc-res [k v]))
diff --git a/tests/core.fnl b/tests/core.fnl
index d5aa57b..5dc4953 100644
--- a/tests/core.fnl
+++ b/tests/core.fnl
@@ -181,7 +181,8 @@
     (assert-eq (seq [1 2 3]) [1 2 3])
     (assert-eq (seq {:a 1}) [["a" 1]])
     (assert-eq (seq "abc") ["a" "b" "c"])
-    (assert-eq (seq "абв") ["а" "б" "в"]))
+    (assert-eq (seq "абв") ["а" "б" "в"])
+    (assert-eq (seq {12345 123}) [[12345 123]]))
 
   (testing "mapv"
     (assert-not (pcall mapv))
@@ -328,7 +329,6 @@
     (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) 0 [10 5]) 15)
     (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) 1 [10 7]) -1)
 
-
     (assert-eq (reduce-kv (fn [res _ v] (if (> res 10) (reduced -1) (+ res v))) 0 {:a 1 :b 2}) 3)
     (assert-eq (reduce-kv (fn [res _ v] (if (> res 10) (reduced -1) (+ res v))) 0 {:a 10 :b 2}) 12)
     (assert-eq (reduce-kv (fn [res _ v] (if (> res 10) (reduced -1) (+ res v))) 1 {:a 3 :b 3 :c 3 :d 3}) 13)
-- 
cgit v1.2.3