From 5f494b497e79bcea1d3c64d663ca5435bbf8ca2d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 7 Sep 2019 20:02:14 -0400
Subject: Renamed "Statement" to "Directive".

---
 luxc/src/lux/analyser/lux.clj | 6 +++---
 luxc/src/lux/base.clj         | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'luxc/src')

diff --git a/luxc/src/lux/analyser/lux.clj b/luxc/src/lux/analyser/lux.clj
index 0a6858a92..8a2f4b70c 100644
--- a/luxc/src/lux/analyser/lux.clj
+++ b/luxc/src/lux/analyser/lux.clj
@@ -542,7 +542,7 @@
     (return (&/|list output))))
 
 (defn analyse-def* [analyse optimize eval! compile-def ?name ?value ?meta exported? & [?expected-type]]
-  (|do [_ &/ensure-statement
+  (|do [_ &/ensure-directive
         module-name &/get-module-name
         ? (&&module/defined? module-name ?name)
         _ (&/assert! (not ?)
@@ -650,7 +650,7 @@
                   (deliver (&/$Right _compiler))))))))
 
 (defn analyse-module [analyse optimize eval! compile-module ?meta ?imports]
-  (|do [_ &/ensure-statement
+  (|do [_ &/ensure-directive
         =anns (&&/analyse-1 analyse &type/Code ?meta)
         ==anns (eval! (optimize =anns))
         module-name &/get-module-name
@@ -713,7 +713,7 @@
 (let [program-type (&/$Function (&/$Apply &type/Text &type/List)
                                 (&/$Apply &type/Any &type/IO))]
   (defn analyse-program [analyse optimize compile-program ?program]
-    (|do [_ &/ensure-statement
+    (|do [_ &/ensure-directive
           =program (&&/analyse-1 analyse program-type ?program)
           _ (compile-program (optimize =program))]
       (return &/$Nil))))
diff --git a/luxc/src/lux/base.clj b/luxc/src/lux/base.clj
index 0d7d661d7..f91bc4f2a 100644
--- a/luxc/src/lux/base.clj
+++ b/luxc/src/lux/base.clj
@@ -1071,14 +1071,14 @@
             output))))))
 
 (def ^{:doc "(Meta Any)"}
-  ensure-statement
+  ensure-directive
   (fn [state]
     (|case (get$ $expected state)
       ($None)
       (return* state unit-tag)
 
       ($Some _)
-      ((fail-with-loc "[Error] All statements must be top-level forms.")
+      ((fail-with-loc "[Error] All directives must be top-level forms.")
        state))))
 
 (def cursor
-- 
cgit v1.2.3