fix an error message

Merge to v6.0
This commit is contained in:
Matthew Flatt 2013-11-26 16:21:11 -07:00
parent 057df631d6
commit d007ec3e56

View File

@ -1264,7 +1264,7 @@ Scheme_Object *scheme_read_number(const mzchar *str, intptr_t len,
if (is_long_double && is_float) {
if (report)
scheme_read_err(complain, stxsrc, line, col, pos, span, 0, indentation,
"read: can convert extflonum to inexact: %u",
"read: cannot convert extflonum to inexact: %u",
str, len);
return scheme_false;
}
@ -1437,7 +1437,7 @@ Scheme_Object *scheme_read_number(const mzchar *str, intptr_t len,
if (is_long_double && is_float) {
if (report)
scheme_read_err(complain, stxsrc, line, col, pos, span, 0, indentation,
"read: can convert extflonum to inexact: %u",
"read: cannot convert extflonum to inexact: %u",
str, len);
return scheme_false;
}