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

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
piclib/picrin
macro.scm

17
piclib/picrin/macro.scm
View File

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