conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix a bug in walk function

This commit is contained in:
Yuichi Nishiwaki 2014-07-19 18:26:09 +09:00
parent 1297ef9fb8
commit 63c34327b9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
piclib/picrin/macro.scm
View File

@ -35,7 +35,7 @@
(cons (walk proc (car expr)) (cons (walk proc (car expr))
(walk proc (cdr expr))) (walk proc (cdr expr)))
(if (vector? expr) (if (vector? expr)
(vector-map proc expr) (list->vector (walk proc (vector->list expr)))
(if (symbol? expr) (if (symbol? expr)
(proc expr) (proc expr)
expr))))) expr)))))