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

cosmetic changes

This commit is contained in:
Yuichi Nishiwaki 2013-12-04 20:33:38 +09:00
parent c7f4d6e791
commit 220c7856cd
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
piclib/built-in.scm
View File

@ -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 '()))