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 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 (make-result-contract request default)
(define default/c (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 (case request
[(text) [(text)
(or/c string? default/c)] (or/c string? default/c)]
@ -41,12 +41,12 @@
[prop:convertible [prop:convertible
(struct-type-property/c (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)]))] [result (request default) (make-result-contract request default)]))]
[convert [convert
(->i ([v convertible?] [request symbol?]) (->i ([v convertible?] [request symbol?])
([default default/c]) ([default default-or-f/c])
[result (request default) (make-result-contract request default)])])) [result (request default) (make-result-contract request default)])]))