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

Contract generation for continuation mark keys

Browse Source
This commit is contained in:
Asumu Takikawa 2012-11-02 11:06:59 -04:00
parent 29d54fb0d0
commit 5fbeffaec6
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-racket/private/type-contract.rkt
View File

@ -1,5 +1,7 @@
#lang racket/base #lang racket/base
;; Contract generation for Typed Racket
(provide type->contract define/fixup-contract? change-contract-fixups) (provide type->contract define/fixup-contract? change-contract-fixups)
(require (require
@ -337,6 +339,9 @@
#`(promise/c #,(t->c t))] #`(promise/c #,(t->c t))]
[(Opaque: p? cert) [(Opaque: p? cert)
#`(flat-named-contract (quote #,(syntax-e p?)) #,(cert p?))] #`(flat-named-contract (quote #,(syntax-e p?)) #,(cert p?))]
[(Continuation-Mark-Key: t)
(set-chaperone!)
#`(continuation-mark-key/c #,(t->c t))]
;; TODO ;; TODO
[(F: v) (cond [(assoc v (vars)) => second] [(F: v) (cond [(assoc v (vars)) => second]
[else (int-err "unknown var: ~a" v)])] [else (int-err "unknown var: ~a" v)])]