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

fix another error message from the preferences system

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

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

@ -276,10 +276,15 @@ the state transitions / contracts are:
(cond
[(and (not (pref-default-set? p))
(pref-can-init? p))
(let ([default-okay? (checker default-value)])
(define default-okay? (checker default-value))
(unless default-okay?
(error 'set-default "~s: checker (~s) returns ~s for ~s, expected #t\n"
p checker default-okay? default-value)))
(error 'set-default
(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))
(error 'preferences:set-default