svn: r3338
This commit is contained in:
Matthew Flatt 2006-06-12 12:01:38 +00:00
parent 27040a2108
commit 9221c7703d

View File

@ -607,7 +607,7 @@ void scheme_set_global_bucket(char *who, Scheme_Bucket *b, Scheme_Object *val,
((Scheme_Bucket_With_Home *)b)->home->module->modname);
} else {
scheme_raise_exn(MZEXN_FAIL_CONTRACT_VARIABLE, b->key,
"%s: cannot set %s identifier: %S",
"%s: cannot %s identifier: %S",
who,
b->val ? "change constant" : "set undefined",
(Scheme_Object *)b->key);