proper count for counted collections

1 files changed, 3 insertions, 1 deletions

diff --git a/init.fnl b/init.fnl
index dafba1b..1e87284 100644
--- a/init.fnl
+++ b/init.fnl
@@ -718,7 +718,9 @@ If the sequence is empty, returns nil."
 (defn count
   "Count amount of elements in the sequence."
   [s]
-  (lazy.count s))
+  (match (getmetatable s)
+    {:cljlib/type :vector} (length* s)
+    _ (lazy.count s)))
 
 (defn cons
   "Construct a cons cell.