forgot the return value

This commit is contained in:
Alex Shinn 2009-12-27 16:39:32 +09:00
parent 84404ac54a
commit f2fb277eab

1
eval.c
View file

@ -2539,6 +2539,7 @@ sexp sexp_load_standard_parameters (sexp ctx, sexp e) {
sexp_env_define(ctx, e, sexp_global(ctx, SEXP_G_CUR_ERR_SYMBOL), sexp_env_define(ctx, e, sexp_global(ctx, SEXP_G_CUR_ERR_SYMBOL),
sexp_make_output_port(ctx, stderr, SEXP_FALSE)); sexp_make_output_port(ctx, stderr, SEXP_FALSE));
sexp_env_define(ctx, e, sexp_global(ctx, SEXP_G_INTERACTION_ENV_SYMBOL), e); sexp_env_define(ctx, e, sexp_global(ctx, SEXP_G_INTERACTION_ENV_SYMBOL), e);
return SEXP_VOID;
} }
sexp sexp_load_standard_env (sexp ctx, sexp e, sexp version) { sexp sexp_load_standard_env (sexp ctx, sexp e, sexp version) {