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

fix incorrect fix from 5495595535 for #:generate default arg

Browse Source
This commit is contained in:
Robby Findler 2014-11-17 06:57:20 -06:00
parent 5495595535
commit 26af633b1f
1 changed files with 21 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
pkgs/racket-pkgs/racket-doc/scribblings/reference/contracts.scrbl
View File

@ -2357,14 +2357,13 @@ is expected to be the blame record for the contract on the value).
#f]
[#:generate
generate
(or/c (->i ([c contract?])
([generator
(c)
(-> (and/c positive? real?)
(or/c (-> (or/c contract-random-generate-fail? c))
#f))]))
#f)
#f]
(->i ([c contract?])
([generator
(c)
(-> (and/c positive? real?)
(or/c (-> (or/c contract-random-generate-fail? c))
#f))]))
(λ (c) (λ (fuel) #f))]
[#:exercise
exercise
(->i ([c contract?])
@ -2406,14 +2405,13 @@ is expected to be the blame record for the contract on the value).
#f]
[#:generate
generate
(or/c (->i ([c contract?])
([generator
(c)
(-> (and/c positive? real?)
(or/c (-> (or/c contract-random-generate-fail? c))
#f))]))
#f)
#f]
(->i ([c contract?])
([generator
(c)
(-> (and/c positive? real?)
(or/c (-> (or/c contract-random-generate-fail? c))
#f))]))
(λ (c) (λ (fuel) #f))]
[#:exercise
exercise
(->i ([c contract?])
@ -2455,14 +2453,13 @@ is expected to be the blame record for the contract on the value).
#f]
[#:generate
generate
(or/c (->i ([c contract?])
([generator
(c)
(-> (and/c positive? real?)
(or/c (-> (or/c contract-random-generate-fail? c))
#f))]))
#f)
#f]
(->i ([c contract?])
([generator
(c)
(-> (and/c positive? real?)
(or/c (-> (or/c contract-random-generate-fail? c))
#f))]))
(λ (c) (λ (fuel) #f))]
[#:exercise
exercise
(->i ([c contract?])