From 51657e94120c0984d7808e6524a67abfcfc86dc7 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Mon, 9 Dec 2013 09:43:20 -0800 Subject: [PATCH] remove walk function's support for vector for a moment --- piclib/built-in.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index 4a699c6c..9232ac03 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -584,9 +584,7 @@ (define (walk f obj) (if (pair? obj) (cons (walk f (car obj)) (walk f (cdr obj))) - (if (vector? obj) - (list->vector (map (lambda (x) (walk f x)) (vector->list obj))) - (f obj)))) + (f obj))) (define (ir-macro-transformer f) (lambda (expr use-env mac-env)