er-macro-transformer is no longer defined using sc

This commit is contained in:
Yuichi Nishiwaki 2014-01-11 12:56:07 +09:00
parent c66a217e87
commit 64855bfcec
1 changed files with 0 additions and 9 deletions

View File

@ -10,14 +10,6 @@
(lambda (expr use-env mac-env) (lambda (expr use-env mac-env)
(make-syntactic-closure use-env '() (f expr mac-env)))) (make-syntactic-closure use-env '() (f expr mac-env))))
(define (er-macro-transformer f)
(lambda (expr use-env mac-env)
(define (rename identifier)
(make-syntactic-closure mac-env '() identifier))
(define (compare x y)
(identifier=? use-env x use-env y))
(make-syntactic-closure use-env '() (f expr rename compare))))
(define (walk f obj) (define (walk f obj)
(if (pair? obj) (if (pair? obj)
(cons (walk f (car obj)) (cons (walk f (car obj))
@ -37,7 +29,6 @@
(export sc-macro-transformer (export sc-macro-transformer
rsc-macro-transformer rsc-macro-transformer
er-macro-transformer
ir-macro-transformer)) ir-macro-transformer))
;;; bootstrap utilities ;;; bootstrap utilities