suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add a dummy lambda expansion to signature compilation to ensure that the

Browse Source 
expressions only refer to locally-bound names or names that are part of the
signature itself.

svn: r17573

original commit: ea20ee160f1769e518208aec8b49aef0d1076cee
This commit is contained in:
Stevie Strickland 2010-01-08 18:47:51 +00:00
parent 623bfd4e9b
commit 79eec9556f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mzlib/unit.ss
View File

@ -307,6 +307,7 @@
(with-syntax (((super-rtime ...) super-rtimes) (with-syntax (((super-rtime ...) super-rtimes)
((super-name ...) super-names) ((super-name ...) super-names)
((var ...) all-bindings) ((var ...) all-bindings)
((ctc ...) all-ctcs)
((((vid ...) . vbody) ...) all-val-defs) ((((vid ...) . vbody) ...) all-val-defs)
((((sid ...) . sbody) ...) all-stx-defs)) ((((sid ...) . sbody) ...) all-stx-defs))
#`(begin #`(begin
@ -333,7 +334,14 @@
(quote-syntax #,c)) (quote-syntax #,c))
#'#f)) #'#f))
all-ctcs)) all-ctcs))
(quote-syntax #,sigid)))))))) (quote-syntax #,sigid))))
(define-values ()
(begin
(λ (var ...)
(letrec-syntaxes+values
([(sid ...) sbody] ...) ([(vid ...) vbody] ...)
ctc ...))
(values)))))))
(else (else
(syntax-case (car sig-exprs) (define-values define-syntaxes contracted) (syntax-case (car sig-exprs) (define-values define-syntaxes contracted)
(x (x