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

fix expand corner to be consistent with eval

Browse Source 
Repairs a problem reported by Laurent Orseau, where running the
following program with errotrace enabled reports an error:

 #lang racket/base
 (require racket/class)
 (new object%)
 (define-namespace-anchor nsa)
 (define ns (namespace-anchor->namespace nsa))
 (eval '(new object%) ns)

I haven't been able to make a standalone test, yet, but I'll keep
trying.
This commit is contained in:
Matthew Flatt 2017-10-05 10:18:21 -06:00
parent 43caae97b7
commit c7c8f6da7e
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/src/racket/src/eval.c
View File

@ -4797,7 +4797,8 @@ Scheme_Object *scheme_expand(Scheme_Object *obj, Scheme_Env *env)
{
return r_expand(obj, scheme_new_expand_env(env, NULL, scheme_true,
SCHEME_TOPLEVEL_FRAME
| SCHEME_KEEP_SCOPES_FRAME),
| SCHEME_KEEP_SCOPES_FRAME
| SCHEME_TMP_TL_BIND_FRAME),
-1, 1, 0, scheme_false, -1, 0);
}
@ -5010,7 +5011,8 @@ static Scheme_Object *expand(int argc, Scheme_Object **argv)
return r_expand(argv[0], scheme_new_expand_env(env, NULL, scheme_true,
SCHEME_TOPLEVEL_FRAME
| SCHEME_KEEP_SCOPES_FRAME),
| SCHEME_KEEP_SCOPES_FRAME
| SCHEME_TMP_TL_BIND_FRAME),
-1, 1, 0, scheme_false, 0, 0);
}
@ -5025,7 +5027,8 @@ static Scheme_Object *expand_stx(int argc, Scheme_Object **argv)
return r_expand(argv[0], scheme_new_expand_env(env, NULL, scheme_true,
SCHEME_TOPLEVEL_FRAME
| SCHEME_KEEP_SCOPES_FRAME),
| SCHEME_KEEP_SCOPES_FRAME
| SCHEME_TMP_TL_BIND_FRAME),
-1, 0, 0, scheme_false, 0, 0);
}