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

fix typed racket named let: error when there are no binding types

Browse Source 
closes PR 13691

include in release
(cherry picked from commit b3ba324a92)
This commit is contained in:
Stephen Chang 2013-04-12 18:23:57 -04:00 committed by Ryan Culpepper
parent 045cf69ba4
commit bfbba3f0bf
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/typed-racket/succeed/pr13691.rkt Normal file
View File

@ -0,0 +1,3 @@
#lang typed/racket
(let: loop : Integer ([b #t]) 3)

4
collects/typed-racket/base-env/prims.rkt
View File

@ -428,10 +428,10 @@ This file defines two sorts of primitives. All of them are provided into any mod
#,(quasisyntax/loc stx #,(quasisyntax/loc stx
(lambda (bs.ann-name ...) . #,(syntax/loc stx body)))]) (lambda (bs.ann-name ...) . #,(syntax/loc stx body)))])
#,(quasisyntax/loc stx nm)))] #,(quasisyntax/loc stx nm)))]
[(: ret-ty (bs:optionally-annotated-binding ...) . body) [(: ret-ty (bs:optionally-annotated-binding ...) body ... bod)
(quasisyntax/loc stx (quasisyntax/loc stx
(letrec ([nm #,(quasisyntax/loc stx (letrec ([nm #,(quasisyntax/loc stx
(lambda (bs.ann-name ...) . (ann #,(syntax/loc stx body) ret-ty)))]) (lambda (bs.ann-name ...) body ... (ann #,(syntax/loc stx bod) ret-ty)))])
#,(quasisyntax/loc stx nm)))] #,(quasisyntax/loc stx nm)))]
[((bs:optionally-annotated-binding ...) . body) [((bs:optionally-annotated-binding ...) . body)
(quasisyntax/loc stx (quasisyntax/loc stx