sexp_load can take a NULL env

This commit is contained in:
Alex Shinn 2011-06-30 09:13:32 +09:00
parent fcdc6c17ff
commit 9c9271e625

1
eval.c
View file

@ -1080,6 +1080,7 @@ sexp sexp_load_op (sexp ctx sexp_api_params(self, n), sexp source, sexp env) {
sexp tmp, out=SEXP_FALSE;
sexp_gc_var4(ctx2, x, in, res);
sexp_assert_type(ctx, sexp_stringp, SEXP_STRING, source);
if (!env) env = sexp_context_env(ctx);
sexp_assert_type(ctx, sexp_envp, SEXP_ENV, env);
#if SEXP_USE_DL || SEXP_USE_STATIC_LIBS
suffix = sexp_string_data(source)