From 090a6a8c5cf7378d4f0501359a47e3d6a7d9cd23 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Sun, 20 Jan 2019 16:06:30 -0500
Subject: [PATCH] Add optional env arguments to eval functions.

---
 src/core/core.janet | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/core/core.janet b/src/core/core.janet
index e9983178..a3fb7452 100644
--- a/src/core/core.janet
+++ b/src/core/core.janet
@@ -1508,7 +1508,8 @@ value, one key will be ignored."
 (defn eval-string
   "Evaluates a string in the current environment. If more control over the
   environment is needed, use run-context."
-  [str]
+  [str env &]
+  (default env *env*)
   (var state (string str))
   (defn chunks [buf _]
     (def ret state)
@@ -1517,7 +1518,7 @@ value, one key will be ignored."
       (buffer/push-string buf str)
       (buffer/push-string buf "\n")))
   (var returnval nil)
-  (run-context *env* chunks
+  (run-context env chunks
                (fn [sig x f source]
                  (if (= sig :dead)
                    (set returnval x)
@@ -1528,8 +1529,9 @@ value, one key will be ignored."
 (defn eval
   "Evaluates a form in the current environment. If more control over the
   environment is needed, use run-context."
-  [form]
-  (def res (compile form *env* "eval"))
+  [form env &]
+  (default env *env*)
+  (def res (compile form env "eval"))
   (if (= (type res) :function)
     (res)
     (error (res :error))))