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

renaming bug in file/convertible's contract

Browse Source
This commit is contained in:
Robby Findler 2014-07-18 23:30:48 -05:00
parent 5641ab84db
commit 2a07425f26
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/file/convertible.rkt
View File

@ -4,11 +4,11 @@
(define opaque-default/c (new-∀/c))
(define default/c (or/c #f opaque-default/c))
(define default-or-f/c (or/c #f opaque-default/c))
(define (make-result-contract request default)
(define default/c
(if (unsupplied-arg? default) default/c opaque-default/c))
(if (unsupplied-arg? default) default-or-f/c opaque-default/c))
(case request
[(text)
(or/c string? default/c)]
@ -41,12 +41,12 @@
[prop:convertible
(struct-type-property/c
(->i ([v convertible?] [request symbol?] [default default/c])
(->i ([v convertible?] [request symbol?] [default default-or-f/c])
[result (request default) (make-result-contract request default)]))]
[convert
(->i ([v convertible?] [request symbol?])
([default default/c])
([default default-or-f/c])
[result (request default) (make-result-contract request default)])]))