Change quasiquote algorithm

[jackhill/mal.git] / impls / guile / core.scm

diff --git a/impls/guile/core.scm b/impls/guile/core.scm
index 5831bc7..4d86cc6 100644 (file)
--- 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)