From 602aacf8d81c03b71229ce3dd38121f559f231bc Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Wed, 9 May 2018 20:35:29 -0700
Subject: [PATCH] Renamed "export" to "external"

---
 core/operators.nom  |  6 +++---
 tests/operators.nom | 10 +++++-----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/core/operators.nom b/core/operators.nom
index fca56d5..706909c 100644
--- a/core/operators.nom
+++ b/core/operators.nom
@@ -84,16 +84,16 @@ immediately
             return Lua(tree.source, lhs, " = ", rhs, ";");
 
 immediately
-    compile [export %var <- %value] to
+    compile [external %var <- %value] to
         %var_lua <- (%var as lua)
         assume %var_lua.is_value or barf "Invalid target for assignment: \(%var's source code)"
         %value_lua <- (%value as lua)
         assume %value_lua.is_value or barf "Invalid value for assignment: \(%value's source code)"
         return: Lua "\(%var_lua) = \(%value_lua);"
 
-    compile [exporting %exported %body] to
+    compile [with external %externs %body] to
         %body_lua <- (%body as lua statements)
-        lua> "\%body_lua:remove_free_vars(\(%exported.value));"
+        lua> "\%body_lua:remove_free_vars(\(%externs.value));"
         return %body_lua
 
     compile [with %assignments %body] to
diff --git a/tests/operators.nom b/tests/operators.nom
index 6a749d8..b3853e9 100644
--- a/tests/operators.nom
+++ b/tests/operators.nom
@@ -19,18 +19,18 @@ assume (({}'s id) is not ({}'s id)) or barf "Identity check failed."
 
 <-{%foozle:"outer",%y:"outer"}
 action [set global x local y]
-    export %foozle <- "inner"
+    external %foozle <- "inner"
     %y <- "inner"
 set global x local y
-assume ((%foozle = "inner") and (%y = "outer")) or barf "export failed."
+assume ((%foozle = "inner") and (%y = "outer")) or barf "external failed."
 
 <-{%foozle:"outer",%y:"outer"}
 action [set global x local y]
-    exporting [%foozle]
+    with external [%foozle]
         %foozle <- "inner"
         %y <- "inner"
 set global x local y
-assume ((%foozle = "inner") and (%y = "outer")) or barf "exporting failed."
+assume ((%foozle = "inner") and (%y = "outer")) or barf "'with external' failed."
 
 <-{%x:1,%y:2}
 with {%z:nil, %x:999}
@@ -45,7 +45,7 @@ assume ((5 wrapped around 2) = 1) or barf "mod not working"
 assume (1 <= 2 < 3) or barf "chained operator fail."
 %value <- -999
 action [flipflop]
-    export %value <- (-%value)
+    external %value <- (-%value)
     return %value
 assume (not (1 < (flipflop) < 1)) or barf "3-way inequality evaluated middle term twice"
 assume (((yes) and (yes)) = (yes))