From 9c9271e6258e349bf31422f5807713a939b8de6a Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 30 Jun 2011 09:13:32 +0900
Subject: [PATCH] sexp_load can take a NULL env

---
 eval.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/eval.c b/eval.c
index ba514e4c..d96949b5 100644
--- a/eval.c
+++ b/eval.c
@@ -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)