fix 'namespace-undefined-variable!' to use constantness checking

svn: r13729
2009-02-18 22:18:20 +00:00 · 2009-02-18 22:18:20 +00:00 · 15475b6c7a
commit 15475b6c7a
parent ada4a7aeae
1 changed files with 4 additions and 0 deletions
--- 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],