doc: example recursive-contract (#1785)
This commit is contained in:
parent
3dd17c73ed
commit
b743544806
|
@ -3132,6 +3132,17 @@ value to be checked against the contract is supplied to the contract.
|
||||||
Without it, the @racket[contract-expr] is evaluated earlier. This option
|
Without it, the @racket[contract-expr] is evaluated earlier. This option
|
||||||
is supported only when @racket[type] is @racket[#:flat].
|
is supported only when @racket[type] is @racket[#:flat].
|
||||||
|
|
||||||
|
@examples[#:eval (contract-eval)
|
||||||
|
(define even-length-list/c
|
||||||
|
(or/c null?
|
||||||
|
(cons/c any/c
|
||||||
|
(cons/c any/c
|
||||||
|
(recursive-contract even-length-list/c #:flat)))))
|
||||||
|
|
||||||
|
(even-length-list/c '(A B))
|
||||||
|
(even-length-list/c '(1 2 3))
|
||||||
|
]
|
||||||
|
|
||||||
@history[#:changed "6.0.1.13" @list{Added the @racket[#:list-contract?] option.}
|
@history[#:changed "6.0.1.13" @list{Added the @racket[#:list-contract?] option.}
|
||||||
#:changed "6.7.0.3" @list{Added the @racket[#:extra-delay] option.}]
|
#:changed "6.7.0.3" @list{Added the @racket[#:extra-delay] option.}]
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user