From 0f7bfa0d4a4e5a79fffe72adec1dd35992c7dde3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 5 Sep 2021 15:17:20 -0400
Subject: Clearing the local scope during eval analysis to avoid accidentally
 seeing variables outside of eval's scope.

---
 lux-bootstrapper/src/lux/analyser/lux.clj | 23 ++++++++++++-----------
 lux-bootstrapper/src/lux/base.clj         | 10 ++++++++++
 2 files changed, 22 insertions(+), 11 deletions(-)

(limited to 'lux-bootstrapper')

diff --git a/lux-bootstrapper/src/lux/analyser/lux.clj b/lux-bootstrapper/src/lux/analyser/lux.clj
index 7b8019211..f4d76912f 100644
--- a/lux-bootstrapper/src/lux/analyser/lux.clj
+++ b/lux-bootstrapper/src/lux/analyser/lux.clj
@@ -1,4 +1,5 @@
 (ns lux.analyser.lux
+  (:refer-clojure :exclude [eval])
   (:require (clojure [template :refer [do-template]]
                      [set :as set])
             clojure.core.match
@@ -553,6 +554,11 @@
                                 (str "\nThis is an alias for " source-name)))))
       (return &/$End))))
 
+(defn eval [analyse optimize eval! type code]
+  (|do [analysis (&/without-scope
+                  (&&/analyse-1 analyse type code))]
+    (eval! (optimize analysis))))
+
 (defn analyse-def* [analyse optimize eval! compile-def ?name ?value ?annotations exported? type? & [?expected-type]]
   (|do [_ &/ensure-directive
         module-name &/get-module-name
@@ -563,10 +569,8 @@
                     (&/with-expected-type ?expected-type
                       (&&/analyse-1 analyse ?expected-type ?value))
                     (&&/analyse-1+ analyse ?value))))
-        =exported? (&&/analyse-1 analyse &type/Bit exported?)
-        ==exported? (eval! (optimize =exported?))
-        =annotations (&&/analyse-1 analyse &type/Code ?annotations)
-        ==annotations (eval! (optimize =annotations))
+        ==exported? (eval analyse optimize eval! &type/Bit exported?)
+        ==annotations (eval analyse optimize eval! &type/Code ?annotations)
         def-value (compile-def ?name (optimize =value) ==annotations ==exported? type?)
         _ &type/reset-mappings
         :let [def-type (&&/expr-type* =value)
@@ -664,8 +668,7 @@
 
 (defn analyse-module [analyse optimize eval! compile-module ?annotations ?imports]
   (|do [_ &/ensure-directive
-        =anns (&&/analyse-1 analyse &type/Code ?annotations)
-        ==anns (eval! (optimize =anns))
+        ==anns (eval analyse optimize eval! &type/Code ?annotations)
         module-name &/get-module-name
         _ (&&module/set-anns ==anns module-name)
         _imports (&&module/fetch-imports ?imports)
@@ -707,17 +710,15 @@
               _analysis)))
 
 (defn analyse-type-check [analyse optimize eval! exo-type ?type ?value]
-  (|do [=type (&&/analyse-1 analyse &type/Type ?type)
-        ==type (eval! (optimize =type))
+  (|do [==type (eval analyse optimize eval! &type/Type ?type)
         _ (&type/check exo-type ==type)
         =value (&&/analyse-1 analyse ==type ?value)
         _location &/location]
     (return (&/|list (&&/|meta ==type _location
-                               (&&/$ann =value =type))))))
+                               (&&/$ann =value ==type))))))
 
 (defn analyse-type-as [analyse optimize eval! exo-type ?type ?value]
-  (|do [=type (&&/analyse-1 analyse &type/Type ?type)
-        ==type (eval! (optimize =type))
+  (|do [==type (eval analyse optimize eval! &type/Type ?type)
         _ (&type/check exo-type ==type)
         =value (&&/analyse-1+ analyse ?value)]
     (return (&/|list (coerce ==type =value)))))
diff --git a/lux-bootstrapper/src/lux/base.clj b/lux-bootstrapper/src/lux/base.clj
index b19bb4fae..41cf66a0f 100644
--- a/lux-bootstrapper/src/lux/base.clj
+++ b/lux-bootstrapper/src/lux/base.clj
@@ -966,6 +966,16 @@
         _
         output))))
 
+(defn without-scope [body]
+  (fn [state]
+    (|case (body (set$ $scopes (|list (env "WITHOUT-SCOPE" "")) state))
+      ($Right state* datum)
+      (return* (set$ $scopes (get$ $scopes state) state*)
+               datum)
+      
+      output
+      output)))
+
 (defn run-state [monad state]
   (monad state))
 
-- 
cgit v1.2.3