From 220c7856cdd5cb064888c4d5602c7a0afc3c59f0 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Wed, 4 Dec 2013 20:33:38 +0900 Subject: [PATCH] cosmetic changes --- piclib/built-in.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index 35c0188c..89d65e84 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -577,13 +577,6 @@ ;;; hygienic macros -(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)))) - (define (sc-macro-transformer f) (lambda (expr use-env mac-env) (make-syntactic-closure mac-env '() (f expr use-env)))) @@ -603,6 +596,13 @@ (define (acons key val alist) (cons (cons key val) alist)) +(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)))) + (define (ir-macro-transformer f) (lambda (expr use-env mac-env) (let ((wrapped '()))