cosmetic changes
This commit is contained in:
parent
c7f4d6e791
commit
220c7856cd
|
@ -577,13 +577,6 @@
|
||||||
|
|
||||||
;;; hygienic macros
|
;;; 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)
|
(define (sc-macro-transformer f)
|
||||||
(lambda (expr use-env mac-env)
|
(lambda (expr use-env mac-env)
|
||||||
(make-syntactic-closure mac-env '() (f expr use-env))))
|
(make-syntactic-closure mac-env '() (f expr use-env))))
|
||||||
|
@ -603,6 +596,13 @@
|
||||||
(define (acons key val alist)
|
(define (acons key val alist)
|
||||||
(cons (cons 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)
|
(define (ir-macro-transformer f)
|
||||||
(lambda (expr use-env mac-env)
|
(lambda (expr use-env mac-env)
|
||||||
(let ((wrapped '()))
|
(let ((wrapped '()))
|
||||||
|
|
Loading…
Reference in New Issue