From 15475b6c7a01d6919ab95f14078e07c467b77c5b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 18 Feb 2009 22:18:20 +0000
Subject: [PATCH] fix 'namespace-undefined-variable!' to use constantness
 checking

svn: r13729
---
 src/mzscheme/src/env.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/mzscheme/src/env.c b/src/mzscheme/src/env.c
index 9617d026e6..33d2512a6e 100644
--- a/src/mzscheme/src/env.c
+++ b/src/mzscheme/src/env.c
@@ -3990,6 +3990,10 @@ namespace_undefine_variable(int argc, Scheme_Object *argv[])
 
   if (scheme_lookup_global(argv[0], env)) {
     bucket = scheme_global_bucket(argv[0], env);
+    scheme_set_global_bucket("namespace-undefine-variable!", 
+                             bucket,
+                             NULL,
+                             0);
     bucket->val = NULL;
   } else {
     scheme_raise_exn(MZEXN_FAIL_CONTRACT_VARIABLE, argv[0],