rewind incorrect validator 'fix'

svn: r13990
This commit is contained in:
Matthew Flatt 2009-03-06 19:57:10 +00:00
parent d1189e5f6a
commit a5cccd73cb

View File

@ -10740,7 +10740,7 @@ void scheme_validate_expr(Mz_CPort *port, Scheme_Object *expr,
c = l->count;
if ((c < 0) || (c + delta >= depth))
if ((c < 0) || (c + delta > depth))
scheme_ill_formed_code(port);
for (i = 0; i < c; i++) {