suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r13729
This commit is contained in:
Matthew Flatt 2009-02-18 22:18:20 +00:00
parent ada4a7aeae
commit 15475b6c7a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/env.c
View File

@ -3990,6 +3990,10 @@ namespace_undefine_variable(int argc, Scheme_Object *argv[])
if (scheme_lookup_global(argv[0], env)) { if (scheme_lookup_global(argv[0], env)) {
bucket = scheme_global_bucket(argv[0], env); bucket = scheme_global_bucket(argv[0], env);
scheme_set_global_bucket("namespace-undefine-variable!",
bucket,
NULL,
0);
bucket->val = NULL; bucket->val = NULL;
} else { } else {
scheme_raise_exn(MZEXN_FAIL_CONTRACT_VARIABLE, argv[0], scheme_raise_exn(MZEXN_FAIL_CONTRACT_VARIABLE, argv[0],