fix `box-cas!' name in error message

This commit is contained in:
Matthew Flatt 2012-05-04 06:37:47 -06:00
parent 3c49e78eb7
commit 0a7ac91427

View File

@ -1632,7 +1632,7 @@ XFORM_SKIP_PROC
*/
if (!SCHEME_MUTABLE_BOXP(box)) {
scheme_wrong_type("cas!", "non-impersonated mutable box", 0, 1, &box);
scheme_wrong_type("box-cas!", "non-impersonated mutable box", 0, 1, &box);
}
#ifdef MZ_USE_FUTURES