From 9d4949093c8b613da4cccbcf54c6e431f2f2e5cf Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 31 Jul 2008 12:08:40 +0000
Subject: [PATCH] refine error message for bad use of expanded expression

svn: r11005
---
 src/mzscheme/src/eval.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index ce20ac47c3..63e2747a26 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -5285,7 +5285,8 @@ scheme_compile_expand_expr(Scheme_Object *form, Scheme_Comp_Env *env,
       }
     } else {
       scheme_wrong_syntax(NULL, NULL, SCHEME_PTR1_VAL(var), 
-                          "expanded syntax not in its original context");
+                          "expanded syntax not in its original lexical context"
+                          " (extra bindings or marks in the current context)");
     }
   }