From 6225462a1c9c007467787f9ee6e48cdd6a78dcfc Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Thu, 14 Sep 2017 18:18:42 -0700
Subject: Updated to use return values better.

---
 core.nom | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'core.nom')

diff --git a/core.nom b/core.nom
index 073d79e..baf0278 100644
--- a/core.nom
+++ b/core.nom
@@ -352,10 +352,14 @@ rule "forbid %blacklist to use %fn":
 
 # Error functions
 rule "error!":
-    lua block "compiler:error()"
+    lua block ".."
+        |table.remove(compiler.callstack)
+        |compiler:error()
 
 rule "error %msg":
-    lua block "compiler:error(vars.msg)"
+    lua block ".."
+        |table.remove(compiler.callstack)
+        |compiler:error(vars.msg)
 
 macro block "test %code yields %expected":
     let "generated" = (lua expr "utils.repr(compiler:stringify_tree(vars.code.value.value), true)")
-- 
cgit v1.2.3