From a5cccd73cb31edf19ab2270bddae0ed28f7757ab Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 6 Mar 2009 19:57:10 +0000
Subject: [PATCH] rewind incorrect validator 'fix'

svn: r13990
---
 src/mzscheme/src/eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index a31b1d9e52..328796e303 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -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++) {