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

sexp_load can take a NULL env

Browse source
This commit is contained in:
Alex Shinn 2011-06-30 09:13:32 +09:00
parent fcdc6c17ff
commit 9c9271e625
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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 tmp, out=SEXP_FALSE;
sexp_gc_var4(ctx2, x, in, res); sexp_gc_var4(ctx2, x, in, res);
sexp_assert_type(ctx, sexp_stringp, SEXP_STRING, source); 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); sexp_assert_type(ctx, sexp_envp, SEXP_ENV, env);
#if SEXP_USE_DL || SEXP_USE_STATIC_LIBS #if SEXP_USE_DL || SEXP_USE_STATIC_LIBS
suffix = sexp_string_data(source) suffix = sexp_string_data(source)