remove walk function's support for vector for a moment

2013-12-09 09:43:20 -08:00
parent fdf06d591c
commit 51657e9412
1 changed files with 1 additions and 3 deletions
@@ -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)