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

Improve Guide example on `flat-named-contract'

Browse Source 
Previously, on the example, the function was not anonymous, so no
`tempN' would appear on the error message.

The fixed example makes use of `flat-named-contract' on an anonymous
function, which resembles the snippet above it and demonstrates the
purpose of `flat-named-contract' better.
This commit is contained in:
Leandro Facchinetti 2016-03-25 17:23:28 -04:00 committed by Vincent St-Amour
parent 209f2db611
commit 05292b7e69
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pkgs/racket-doc/scribblings/guide/contracts/simple-function.scrbl
View File

@ -404,10 +404,13 @@ the contract so that error messages become intelligible:
@interaction[#:eval @interaction[#:eval
contract-eval contract-eval
(module improved-bank-server racket (module improved-bank-server racket
(define (amount? x) (and (number? x) (integer? x) (>= x 0))) (provide
(define amount (flat-named-contract 'amount amount?)) (contract-out
[deposit (-> (flat-named-contract
(provide (contract-out [deposit (amount . -> . any)])) 'amount
(λ (x)
(and (number? x) (integer? x) (>= x 0))))
any)]))
(define total 0) (define total 0)
(define (deposit a) (set! total (+ a total))))] (define (deposit a) (set! total (+ a total))))]