Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Don't consider undefined bindings as implicit exports.

Browse source
This commit is contained in:
Alex Shinn 2014-07-22 21:21:44 +09:00
parent b54aca219e
commit c74e14cbdb
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
eval.c
View file

@ -201,7 +201,8 @@ sexp sexp_env_exports_op (sexp ctx, sexp self, sexp_sint_t n, sexp env) {
sexp_push(ctx, res, sexp_cadr(ls)); sexp_push(ctx, res, sexp_cadr(ls));
#endif #endif
for (ls=sexp_env_bindings(env); sexp_pairp(ls); ls=sexp_env_next_cell(ls)) for (ls=sexp_env_bindings(env); sexp_pairp(ls); ls=sexp_env_next_cell(ls))
sexp_push(ctx, res, sexp_car(ls)); if (sexp_env_value(ls) != SEXP_UNDEF)
sexp_push(ctx, res, sexp_car(ls));
sexp_gc_release1(ctx); sexp_gc_release1(ctx);
return res; return res;
} }