fix(core): rename seq? to vector?

2 files changed, 11 insertions, 11 deletions

diff --git a/cljlib.fnl b/cljlib.fnl
index f25e321..d519383 100644
--- a/cljlib.fnl
+++ b/cljlib.fnl
@@ -44,7 +44,7 @@ arguments to `args`."
                (or (not= (type k) :number)
                    (not= k 1)))))))
 
-(fn* core.seq?
+(fn* core.vector?
   "Check whether `tbl` is an sequential table."
   [tbl]
   (if (= (type tbl) :table)
diff --git a/tests/core.fnl b/tests/core.fnl
index f7dccd7..2481f02 100644
--- a/tests/core.fnl
+++ b/tests/core.fnl
@@ -129,13 +129,13 @@
     (assert* (map? (empty {})))
     (assert-not (map? (empty []))))
 
-  (testing "seq?"
-    (assert-not (seq? []))
-    (assert* (seq? [{:a 1}]))
-    (assert-not (seq? {}))
-    (assert-not (seq? {:a 1}))
-    (assert* (seq? (empty [])))
-    (assert-not (seq? (empty {}))))
+  (testing "vector?"
+    (assert-not (vector? []))
+    (assert* (vector? [{:a 1}]))
+    (assert-not (vector? {}))
+    (assert-not (vector? {:a 1}))
+    (assert* (vector? (empty [])))
+    (assert-not (vector? (empty {}))))
 
   (testing "nil?"
     (assert* (nil?))
@@ -248,7 +248,7 @@
     (assert-eq (filter even? (range 10)) [0 2 4 6 8])
     (assert-eq (filter odd? (range 10)) [1 3 5 7 9])
     (assert-eq (filter map? [{:a 1} {5 1} [1 2] [] {}]) [{:a 1} {5 1}])
-    (assert-eq (filter seq? [{:a 1} {5 1} [1 2] [] {}]) [[1 2]]))
+    (assert-eq (filter vector? [{:a 1} {5 1} [1 2] [] {}]) [[1 2]]))
 
   (testing "concat"
     (assert-eq (concat) nil)
@@ -574,8 +574,8 @@
     (assert-not (gt 2 1 3))
     (assert-not (gt 1 2 4 4))))
 
-(deftest vec
-  (testing "vec"
+(deftest vector
+  (testing "vector"
     (assert-eq (vector) [])
     (assert-eq (vector 1) [1])
     (assert-eq (vector 1 2 3) [1 2 3])