From 602aacf8d81c03b71229ce3dd38121f559f231bc Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 9 May 2018 20:35:29 -0700 Subject: Renamed "export" to "external" --- tests/operators.nom | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tests') 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)) -- cgit v1.2.3