From 20ce8f7e61ae9a4db3e46aed5ee0a4dc473ae2de Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 26 Nov 2006 00:45:16 +0000
Subject: [PATCH] src loc for undefined provided names

svn: r4943
---
 src/mzscheme/src/module.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index 0cf1b386ea..2597a839cf 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -4991,11 +4991,9 @@ static Scheme_Object *do_module_begin(Scheme_Object *form, Scheme_Comp_Env *env,
 	name = SCHEME_CAR(v);
 	protected = SCHEME_TRUEP(SCHEME_CDR(v));
 
-	if (SCHEME_STXP(name)) {
-	  prnt_name = SCHEME_STX_VAL(name);
+        prnt_name = name;
+	if (SCHEME_STXP(name))
 	  name = scheme_tl_id_sym(env->genv, name, NULL, 0);
-	} else
-	  prnt_name = name;
 
 	if (scheme_lookup_in_table(env->genv->toplevel, (const char *)name)) {
 	  /* Defined locally */