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

Add exn:break:hang-up and exn:break:terminate

Browse Source
This commit is contained in:
Asumu Takikawa 2016-02-21 02:48:45 -05:00
parent 79ccd77c6d
commit a90f6c46eb
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
typed-racket-lib/typed-racket/base-env/base-structs.rkt
View File

@ -70,7 +70,10 @@
([message : -String] [continuation-marks : -Cont-Mark-Set])
(define-hierarchy exn:break (#:kernel-maker k:exn:break)
([continuation : top-func]))
([continuation : top-func])
(define-hierarchy exn:break:hang-up (#:kernel-maker k:exn:break:hang-up) ())
(define-hierarchy exn:break:terminate (#:kernel-maker k:exn:break:terminate) ()))
(define-hierarchy exn:fail (#:kernel-maker k:exn:fail) ()

2
typed-racket-test/unit-tests/typecheck-tests.rkt
View File

@ -2004,6 +2004,8 @@
exn:fail:unsupported
exn:fail:user
exn:break
exn:break:hang-up
exn:break:terminate
arity-at-least
date
srcloc)