Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-16 17:37:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Resetting (interaction-environment) after -x<language>.

Browse source
This commit is contained in:
Alex Shinn 2012-02-11 20:09:06 +09:00
parent e2bda89eba
commit 0ad792a100
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
main.c
View file

@ -355,7 +355,10 @@ void run_main (int argc, char **argv) {
if (*p == '.') *p=' '; if (*p == '.') *p=' ';
tmp = check_exception(ctx, sexp_eval_string(ctx, impmod, -1, (c=='x' ? sexp_global(ctx, SEXP_G_META_ENV) : env))); tmp = check_exception(ctx, sexp_eval_string(ctx, impmod, -1, (c=='x' ? sexp_global(ctx, SEXP_G_META_ENV) : env)));
free(impmod); free(impmod);
if (c == 'x') sexp_context_env(ctx) = env = tmp; if (c == 'x') {
sexp_context_env(ctx) = env = tmp;
sexp_set_parameter(ctx, env, sexp_global(ctx, SEXP_G_INTERACTION_ENV_SYMBOL), env);
}
#endif #endif
break; break;
case 'q': case 'q':