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

remove walk function's support for vector for a moment

This commit is contained in:
Yuichi Nishiwaki 2013-12-09 09:43:20 -08:00
parent fdf06d591c
commit 51657e9412
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
piclib/built-in.scm
View File

@ -584,9 +584,7 @@
(define (walk f obj) (define (walk f obj)
(if (pair? obj) (if (pair? obj)
(cons (walk f (car obj)) (walk f (cdr obj))) (cons (walk f (car obj)) (walk f (cdr obj)))
(if (vector? obj) (f obj)))
(list->vector (map (lambda (x) (walk f x)) (vector->list obj)))
(f obj))))
(define (ir-macro-transformer f) (define (ir-macro-transformer f)
(lambda (expr use-env mac-env) (lambda (expr use-env mac-env)