undo typo

svn: r9316
This commit is contained in:
Matthew Flatt 2008-04-15 12:31:47 +00:00
parent a632e64d2f
commit f3e2e2c566

View File

@ -1703,7 +1703,7 @@ read_inner_inner(Scheme_Object *port, Scheme_Object *stxsrc, Scheme_Hash_Table *
Scheme_Object *v; Scheme_Object *v;
if (!params->can_read_reader) { if (!params->can_read_reader) {
scheme_read_err(port, stxsrc, line, col, pos, 2, 0, indentation, scheme_read_err(port, stxsrc, line, col, pos, 2, 0, indentation,
"read: #! readerppppp expressions not currently enabled"); "read: #! reader expressions not currently enabled");
return NULL; return NULL;
} }
v = read_lang(port, stxsrc, line, col, pos, ht, indentation, params, ch); v = read_lang(port, stxsrc, line, col, pos, ht, indentation, params, ch);