Fix make-contract example to show the correct contract violation
There was a duplicate quote around `given:' which caused a violation in make-contract's internals.
This commit is contained in:
parent
e1333d0616
commit
e0f2d9c0d6
|
@ -1979,7 +1979,7 @@ to determine if this is a contract that accepts only @racket[list?] values.
|
|||
(λ (x) (range (f (domain x))))
|
||||
(raise-blame-error
|
||||
b f
|
||||
'(expected "a function of one argument" 'given: "~e")
|
||||
'(expected "a function of one argument" given: "~e")
|
||||
f)))))))
|
||||
(contract int->int/c "not fun" 'positive 'negative)
|
||||
(define halve
|
||||
|
|
Loading…
Reference in New Issue
Block a user