From 63a19db0dc817d2929d8ef4bf12a15d5e9dbd015 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Tue, 12 Jun 2018 20:06:33 -0700
Subject: Working version.

---
 tests/metaprogramming.nom |  7 ++++---
 tests/scopes.nom          | 12 ++++++------
 2 files changed, 10 insertions(+), 9 deletions(-)

(limited to 'tests')

diff --git a/tests/metaprogramming.nom b/tests/metaprogramming.nom
index a31d030..a7a61d4 100644
--- a/tests/metaprogramming.nom
+++ b/tests/metaprogramming.nom
@@ -49,9 +49,10 @@ assume ((%1 = 2) and (%2 = 1)) or barf "'parse % as %' failed on 'swap % and %'"
 swap %tmp and %tmp2
 assume ((%tmp = 2) and (%tmp2 = 1)) or barf "'parse % as %' variable mangling failed."
 
-remove action (foo %)
-try: foo 99
-..and if it succeeds: barf "Failed to delete action"
+#
+    remove action (foo %)
+    try: foo 99
+    ..and if it succeeds: barf "Failed to delete action"
 
 assume ((\(5 + 5) as value) = 10) or barf "%tree as value failed."
 
diff --git a/tests/scopes.nom b/tests/scopes.nom
index 80791a5..d3a2eb9 100644
--- a/tests/scopes.nom
+++ b/tests/scopes.nom
@@ -15,11 +15,11 @@ using
 action [baz]
     return "outer"
 
-using
-    action [baz]
-        return "inner"
-..do
-    assume: (baz) = "inner"
-assume: (baz) = "outer"
+#
+    do
+        local action [baz]
+            return "inner"
+        assume: (baz) = "inner"
+    assume: (baz) = "outer"
 
 say "Scopes test passed."
-- 
cgit v1.2.3