typo
svn: r3338
This commit is contained in:
parent
27040a2108
commit
9221c7703d
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue
Block a user