fix a bug in walk function

2014-07-19 18:26:09 +09:00 · 2014-07-19 18:26:09 +09:00 · 63c34327b9
parent 1297ef9fb8
commit 63c34327b9
1 changed files with 1 additions and 1 deletions
--- a/piclib/picrin/macro.scm
+++ b/piclib/picrin/macro.scm
@ -35,7 +35,7 @@
            (cons (walk proc (car expr))
                  (walk proc (cdr expr)))
            (if (vector? expr)
-                (vector-map proc expr)
+                (list->vector (walk proc (vector->list expr)))
                (if (symbol? expr)
                    (proc expr)
                    expr)))))