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

fix another error message from the preferences system

Browse Source 
original commit: 6c601bfc2af634bb07c76bf548c3a46ec9612f7f
This commit is contained in:
Robby Findler 2013-09-01 12:49:11 -05:00
parent d2bc8a709c
commit 857a7a485f
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -276,10 +276,15 @@ the state transitions / contracts are:
(cond (cond
[(and (not (pref-default-set? p)) [(and (not (pref-default-set? p))
(pref-can-init? p)) (pref-can-init? p))
(let ([default-okay? (checker default-value)]) (define default-okay? (checker default-value))
(unless default-okay? (unless default-okay?
(error 'set-default "~s: checker (~s) returns ~s for ~s, expected #t\n" (error 'set-default
p checker default-okay? default-value))) (string-append
"checker doesn't match default\n"
" default: ~e\n"
" pref sym: ~e\n"
" checker: ~e")
p default-value checker))
(unless (= (length aliases) (length rewrite-aliases)) (unless (= (length aliases) (length rewrite-aliases))
(error 'preferences:set-default (error 'preferences:set-default