syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

make sure begin always has a definition context

This commit is contained in:
Sam Caldwell 2019-05-16 15:52:33 -04:00
parent fd40ab2e52
commit dc0e434caa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/typed/core-types.rkt
View File

@ -1161,7 +1161,7 @@
#:do [(define-values (e-... τ... ep-effs f-effs s-effs) (walk/bind #'(e_unit ... e)))] #:do [(define-values (e-... τ... ep-effs f-effs s-effs) (walk/bind #'(e_unit ... e)))]
#:with τ (last τ...) #:with τ (last τ...)
-------- --------
[⊢ (begin- #,@e-...) (⇒ : τ) [⊢ (let- () #,@e-...) (⇒ : τ)
(⇒ ν-ep (#,@ep-effs)) (⇒ ν-ep (#,@ep-effs))
(⇒ ν-f (#,@f-effs)) (⇒ ν-f (#,@f-effs))
(⇒ ν-s (#,@s-effs))]]) (⇒ ν-s (#,@s-effs))]])