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

Use tail-position syntax property for non-functions.

Browse Source 
svn: r16451

original commit: 6d70a48de13cbc2e54535c274144adb741d8aba1
This commit is contained in:
Sam Tobin-Hochstadt 2009-10-29 18:02:33 +00:00
parent 2ca3a9176f
commit a714f51138
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-scheme/typecheck/tc-let-unit.ss
View File

@ -94,6 +94,9 @@
[(#%plain-lambda () _)
#:fail-unless (and expected (syntax-property e 'typechecker:called-in-tail-position)) #f
(tc-expr/check e (ret (-> (tc-results->values expected))))]
[_
#:fail-unless (and expected (syntax-property e 'typechecker:called-in-tail-position)) #f
(tc-expr/check e expected)]
[_ (tc-expr e)]))
(define (tc/let-values namess exprs body form [expected #f])