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

Add the rest of the continuation functions

Browse Source
This commit is contained in:
Asumu Takikawa 2012-11-05 16:04:18 -05:00
parent 41b59cb46a
commit 0accfe24e2
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/typed-racket/base-env/base-env.rkt
View File

@ -597,11 +597,6 @@
(-values (list (-pair b (-val '())) -Nat -Nat -Nat)))))] (-values (list (-pair b (-val '())) -Nat -Nat -Nat)))))]
[call/cc (-poly (a b) (((a . -> . (Un)) . -> . b) . -> . (Un a b)))]
[call/ec (-poly (a b) (((a . -> . (Un)) . -> . b) . -> . (Un a b)))]
[call-with-current-continuation (-poly (a b) (((a . -> . (Un)) . -> . b) . -> . (Un a b)))]
[call-with-escape-continuation (-poly (a b) (((a . -> . (Un)) . -> . b) . -> . (Un a b)))]
[struct->vector (Univ . -> . (-vec Univ))] [struct->vector (Univ . -> . (-vec Univ))]
[unsafe-struct-ref top-func] [unsafe-struct-ref top-func]
[unsafe-struct*-ref top-func] [unsafe-struct*-ref top-func]
@ -2023,10 +2018,6 @@
[stx-list? (-> (-Syntax Univ) -Boolean)] [stx-list? (-> (-Syntax Univ) -Boolean)]
;Section 9.4 (Continuations) ;Section 9.4 (Continuations)
[call-with-continuation-barrier (-poly (a) (-> (-> a) a))]
[continuation-prompt-available? (-> (make-Prompt-TagTop) B)]
[call-with-continuation-prompt [call-with-continuation-prompt
(-polydots (a b d c) (-polydots (a b d c)
(cl->* (cl->*
@ -2036,12 +2027,20 @@
[abort-current-continuation [abort-current-continuation
(-polydots (a b d e c) (-polydots (a b d e c)
(->... (list (make-Prompt-Tag b (->... '() (c c) d))) (c c) e))] (->... (list (make-Prompt-Tag b (->... '() (c c) d))) (c c) e))]
[make-continuation-prompt-tag (-poly (a b) (->opt [Sym] (make-Prompt-Tag a b)))]
;; TODO: requires special handling of abort-current-continuation
;[default-continuation-prompt-tag (-> (make-Prompt-Tag Univ (-> ManyUniv Univ)))]
[call-with-current-continuation (-poly (a b) (((a . -> . (Un)) . -> . b) . -> . (Un a b)))]
[call/cc (-poly (a b) (((a . -> . (Un)) . -> . b) . -> . (Un a b)))]
[call-with-composable-continuation [call-with-composable-continuation
(-polydots (b c a) (-polydots (b c a)
(cl->* (cl->*
(-> (->... '() (a a) b) (make-Prompt-Tag b c) (make-ValuesDots '() a 'a))))] (-> (->... '() (a a) b) (make-Prompt-Tag b c) (make-ValuesDots '() a 'a))))]
[make-continuation-prompt-tag (-poly (a b) (->opt [Sym] (make-Prompt-Tag a b)))] [call-with-escape-continuation (-poly (a b) (((a . -> . (Un)) . -> . b) . -> . (Un a b)))]
;[default-continuation-prompt-tag (-> (make-Prompt-Tag Univ (-> ManyUniv Univ)))] [call/ec (-poly (a b) (((a . -> . (Un)) . -> . b) . -> . (Un a b)))]
[call-with-continuation-barrier (-poly (a) (-> (-> a) a))]
[continuation-prompt-available? (-> (make-Prompt-TagTop) B)]
;; TODO?: continuation? is missing
[continuation-prompt-tag? (make-pred-ty (make-Prompt-TagTop))] [continuation-prompt-tag? (make-pred-ty (make-Prompt-TagTop))]
[dynamic-wind (-poly (a) (-> (-> ManyUniv) (-> a) (-> ManyUniv) a))] [dynamic-wind (-poly (a) (-> (-> ManyUniv) (-> a) (-> ManyUniv) a))]