inline some trivial functions

This commit is contained in:
Yuichi Nishiwaki 2014-07-19 18:28:10 +09:00
parent 63c34327b9
commit 8b82498cd7
1 changed files with 5 additions and 12 deletions

View File

@ -114,11 +114,6 @@
(lambda (sym)
(make-identifier sym mac-env))))
(define (uninject sym)
(if (dictionary-has? icache* sym)
(dictionary-ref icache* sym)
(rename sym)))
(define (compare x y)
(if (not (symbol? x))
#f
@ -126,13 +121,11 @@
#f
(identifier=? mac-env x mac-env y))))
(define (wrap expr)
(walk inject expr))
(define (unwrap expr)
(walk uninject expr))
(unwrap (f (wrap expr) inject compare))))
(walk (lambda (sym)
(if (dictionary-has? icache* sym)
(dictionary-ref icache* sym)
(rename sym)))
(f (walk inject expr) inject compare))))
(export make-syntactic-closure
close-syntax