improved the error messsage for contract violations of preferences:add-callback

This commit is contained in:
Robby Findler 2011-06-20 14:53:42 +08:00
parent 62a337231a
commit e008fc3399

View File

@ -371,7 +371,8 @@ the state transitions / contracts are:
;; important that this arg only has a flat contract
;; so that no wrapper is created, so that
;; the weak box stuff works ...
(λ (x) (and (procedure? x) (procedure-arity-includes? x 2))))
(let ([procedure-with-arity2? (λ (x) (and (procedure? x) (procedure-arity-includes? x 2)))])
procedure-with-arity2?))
(boolean?)
(-> void?))
((p f)