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)
(cond
[(pref-default-set? p)
(let ([default (hash-ref defaults p)])
(unless ((default-checker default) value)
(error 'preferences:set
"tried to set preference ~e to ~e but it does not meet test from `preferences:set-default'"
p value))
(define default (hash-ref defaults p))
(define checker? (default-checker default))
(unless (checker? value)
(error 'preferences:set
(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)
(hash-set! preferences p value))]
(hash-set! preferences p value)]
[(not (pref-default-set? p))
(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
value)]))
ps values)