From e41923ad05155b092719198cbf9795cb23c1bcde Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 6 Jan 2016 23:07:18 -0500
Subject: [PATCH] Added optional environment specifier

---
 scheme/load.sld | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/load.sld b/scheme/load.sld
index d05115e2..2bea4e00 100644
--- a/scheme/load.sld
+++ b/scheme/load.sld
@@ -5,11 +5,11 @@
           (scheme file)
           (scheme read))
   (begin
-    (define (load filename)
+    (define (load filename . env)
       (let ((exprs (call-with-input-file filename
                      (lambda (port)
                        (read-all port)))))
         (for-each
           (lambda (expr)
-            (eval expr))
+            (apply eval (cons expr env)))
           exprs)))))