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

Added fluid-let-syntax. 

See http://www.scheme.com/csug7/syntax.html#./syntax:s15
for details.
This commit is contained in:
Abdulaziz Ghuloum 2008-02-25 02:15:51 -05:00
parent 7a9526ec91
commit c8f9b1dc3d
3 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
scheme/ikarus.boot.prebuilt
View File

Binary file not shown.

2
scheme/makefile.ss
View File

@ -125,6 +125,7 @@
[unless (core-macro . unless)] [unless (core-macro . unless)]
[parameterize (core-macro . parameterize)] [parameterize (core-macro . parameterize)]
[case (core-macro . case)] [case (core-macro . case)]
[fluid-let-syntax (core-macro . fluid-let-syntax)]
[record-type-descriptor (core-macro . record-type-descriptor)] [record-type-descriptor (core-macro . record-type-descriptor)]
[record-constructor-descriptor (core-macro . record-constructor-descriptor)] [record-constructor-descriptor (core-macro . record-constructor-descriptor)]
[let-values (macro . let-values)] [let-values (macro . let-values)]
@ -589,6 +590,7 @@
[let*-values i r ba] [let*-values i r ba]
[let-syntax i r ba se ne] [let-syntax i r ba se ne]
[let-values i r ba] [let-values i r ba]
[fluid-let-syntax i]
[letrec i r ba se ne] [letrec i r ba se ne]
[letrec* i r ba] [letrec* i r ba]
[letrec-syntax i r ba se ne] [letrec-syntax i r ba se ne]

19
scheme/psyntax.expander.ss
View File

@ -863,6 +863,24 @@
(define letrec*-transformer (define letrec*-transformer
(lambda (e r mr) (letrec-helper e r mr build-letrec*))) (lambda (e r mr) (letrec-helper e r mr build-letrec*)))
(define fluid-let-syntax-transformer
(lambda (e r mr)
(define (lookup x)
(or (id->label x)
(syntax-violation #f "unbound identifier" e x)))
(syntax-match e ()
((_ ((lhs* rhs*) ...) b b* ...)
(if (not (valid-bound-ids? lhs*))
(invalid-fmls-error e lhs*)
(let ([lab* (map lookup lhs*)]
[rhs* (map (lambda (x)
(make-eval-transformer
(expand-transformer x mr)))
rhs*)])
(chi-internal (cons b b*)
(append (map cons lab* rhs*) r)
(append (map cons lab* rhs*) mr))))))))
(define type-descriptor-transformer (define type-descriptor-transformer
(lambda (e r mr) (lambda (e r mr)
(syntax-match e () (syntax-match e ()
@ -2423,6 +2441,7 @@
((type-descriptor) type-descriptor-transformer) ((type-descriptor) type-descriptor-transformer)
((record-type-descriptor) record-type-descriptor-transformer) ((record-type-descriptor) record-type-descriptor-transformer)
((record-constructor-descriptor) record-constructor-descriptor-transformer) ((record-constructor-descriptor) record-constructor-descriptor-transformer)
((fluid-let-syntax) fluid-let-syntax-transformer)
(else (assertion-violation (else (assertion-violation
'macro-transformer 'macro-transformer
"BUG: cannot find transformer" "BUG: cannot find transformer"