From 9965629bdea6f997fc2828831e537f5b60951b21 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 27 Apr 2006 21:10:39 +0000
Subject: [PATCH] patch from Lauri to fix eval with a namespace argument

svn: r2826
---
 src/mzscheme/src/eval.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index 845ed0bc90..78479dddd1 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -6197,7 +6197,12 @@ eval(int argc, Scheme_Object *argv[])
   if (SCHEME_STXP(form)
       && !SAME_TYPE(SCHEME_TYPE(SCHEME_STX_VAL(form)), scheme_compilation_top_type)) {
     Scheme_Env *genv;
-    genv = scheme_get_env(NULL);
+    if (argc > 1) {
+      if (SCHEME_TYPE(argv[1]) != scheme_namespace_type)
+	scheme_wrong_type("eval", "namespace", 1, argc, argv);
+      genv = (Scheme_Env *)argv[1];
+    } else
+      genv = scheme_get_env(NULL);
     form = add_renames_unless_module(form, genv);
   }