From 63c34327b97185bc68cbf502f5044951f256d941 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 19 Jul 2014 18:26:09 +0900 Subject: [PATCH] fix a bug in walk function --- piclib/picrin/macro.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/piclib/picrin/macro.scm b/piclib/picrin/macro.scm index a5155b21..8f279b51 100644 --- 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)))))