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

syntax-rules: hygienic syntax-rules

This commit is contained in:
Yuichi Nishiwaki 2015-06-15 02:13:22 +09:00
parent af59885858
commit 3ed24ae1fb
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
piclib/picrin/syntax-rules.scm
View File

@ -151,7 +151,7 @@
(if (= 0 (cdr it)) (if (= 0 (cdr it))
(cdr (assq pat selectors)) (cdr (assq pat selectors))
(error "unmatched pattern variable level" pat)) (error "unmatched pattern variable level" pat))
#`'#,pat))) #`(#,'rename '#,pat))))
((many? pat) ((many? pat)
(letrec* (letrec*
((inner-pat ((inner-pat
@ -195,8 +195,18 @@
#,(compile-rules (cdr rules)))))) #,(compile-rules (cdr rules))))))
(define (compile rules) (define (compile rules)
#`(lambda #,'it #`(call-with-current-environment
#,(compile-rules rules))) (lambda (env)
(letrec
((#,'rename (let ((reg (make-register)))
(lambda (x)
(if (undefined? (reg x))
(let ((id (make-identifier x env)))
(reg x id)
id)
(reg x))))))
(lambda #,'it
#,(compile-rules rules))))))
(let ((rules (map-keys cdr rules))) ; TODO: check pattern head is a variable (let ((rules (map-keys cdr rules))) ; TODO: check pattern head is a variable
(compile rules))) (compile rules)))