X-Git-Url: http://git.hcoop.net/jackhill/mal.git/blobdiff_plain/ece70f970306f819b148979c3d17f266c7e08146..fbfe6784d2db983018340e4e1492d8d017029867:/impls/guile/core.scm

diff --git a/impls/guile/core.scm b/impls/guile/core.scm
index 5831bc7d..4d86cc6d 100644
--- a/impls/guile/core.scm
+++ b/impls/guile/core.scm
@@ -19,6 +19,8 @@
 
 (define (->list o) ((if (vector? o) vector->list identity) o))
 
+(define (vec lst) (if (vector? lst) lst (list->vector lst)))
+
 (define (_count obj)
   (cond
    ((_nil? obj) 0)
@@ -224,6 +226,7 @@
     (slurp       ,slurp)
     (cons        ,_cons)
     (concat      ,concat)
+    (vec         ,vec)
     (nth         ,_nth)
     (first       ,_first)
     (rest        ,_rest)