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

adjust some error messages based on new conventions

Browse Source
This commit is contained in:
Robby Findler 2013-08-31 20:52:31 -05:00
parent afdaf514ed
commit 09458af39f
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
pkgs/gui-pkgs/gui-lib/framework/preferences.rkt
View File

@ -138,16 +138,25 @@ the state transitions / contracts are:
(λ (p value) (λ (p value)
(cond (cond
[(pref-default-set? p) [(pref-default-set? p)
(let ([default (hash-ref defaults p)]) (define default (hash-ref defaults p))
(unless ((default-checker default) value) (define checker? (default-checker default))
(error 'preferences:set (unless (checker? value)
"tried to set preference ~e to ~e but it does not meet test from `preferences:set-default'" (error 'preferences:set
p value)) (string-append
"new value doesn't satisfy preferences:set-default predicate\n"
" pref sym: ~e\n"
" given: ~e\n"
" predicate: ~e")
p value checker?))
(check-callbacks p value) (check-callbacks p value)
(hash-set! preferences p value))] (hash-set! preferences p value)]
[(not (pref-default-set? p)) [(not (pref-default-set? p))
(raise-unknown-preference-error (raise-unknown-preference-error
'preferences:set "tried to set the preference ~e to ~e, but no default is set" 'preferences:set
(string-append
"cannot set preference before setting default"
" pref sym: ~e\n"
" given: ~e")
p p
value)])) value)]))
ps values) ps values)