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

warning on importing undefined variables

Browse source
This commit is contained in:
Alex Shinn 2009-12-13 19:29:35 +09:00
parent 178cf109bd
commit e03cef72b3
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
eval.c
View file

@ -2380,7 +2380,7 @@ static sexp sexp_make_standard_env (sexp ctx, sexp version) {
} }
sexp sexp_env_copy (sexp ctx, sexp to, sexp from, sexp ls) { sexp sexp_env_copy (sexp ctx, sexp to, sexp from, sexp ls) {
sexp oldname, newname; sexp oldname, newname, value, out;
if (! sexp_envp(to)) to = sexp_context_env(ctx); if (! sexp_envp(to)) to = sexp_context_env(ctx);
if (! sexp_envp(from)) from = sexp_context_env(ctx); if (! sexp_envp(from)) from = sexp_context_env(ctx);
if (sexp_not(ls)) { if (sexp_not(ls)) {
@ -2393,7 +2393,16 @@ sexp sexp_env_copy (sexp ctx, sexp to, sexp from, sexp ls) {
} else { } else {
newname = oldname = sexp_car(ls); newname = oldname = sexp_car(ls);
} }
sexp_env_define(ctx, to, newname, sexp_env_global_ref(from, oldname, SEXP_FALSE)); value = sexp_env_global_ref(from, oldname, SEXP_UNDEF);
if (value != SEXP_UNDEF) {
sexp_env_define(ctx, to, newname, value);
#if USE_WARN_UNDEFS
} else if (sexp_oportp(out=sexp_current_error_port(ctx))) {
sexp_write_string(ctx, "WARNING: importing undefined variable: ", out);
sexp_write(ctx, oldname, out);
sexp_write_char(ctx, '\n', out);
#endif
}
} }
} }
return SEXP_VOID; return SEXP_VOID;