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

fix expansion context for let-values RHS

Browse Source 
svn: r5599
This commit is contained in:
Matthew Flatt 2007-02-14 14:10:45 +00:00
parent 7e4bf3272b
commit c4e863fe39
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/syntax.c
View File

@ -3788,7 +3788,6 @@ do_let_expand(Scheme_Object *form, Scheme_Comp_Env *origenv, Scheme_Expand_Info
if (!SCHEME_STX_NULLP(vs)) if (!SCHEME_STX_NULLP(vs))
scheme_wrong_syntax(NULL, vs, form, NULL); scheme_wrong_syntax(NULL, vs, form, NULL);
use_env = origenv;
if (env_already) if (env_already)
env = env_already; env = env_already;
else else
@ -3796,6 +3795,8 @@ do_let_expand(Scheme_Object *form, Scheme_Comp_Env *origenv, Scheme_Expand_Info
if (letrec) if (letrec)
use_env = env; use_env = env;
else
use_env = scheme_no_defines(origenv);
/* Pass 1: Rename */ /* Pass 1: Rename */