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

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

Browse Source 
original commit: e008fc33999bd022c63c8493a1894428ed49053e
This commit is contained in:
Robby Findler 2011-06-20 14:53:42 +08:00
parent f059bb7e22
commit 42babf1e93
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/preferences.rkt
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)