From e2bbbfe1611f12b33692af175d661fa25b2cc616 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Fri, 29 Sep 2017 22:04:03 -0700
Subject: More stuff is working more better.

---
 lib/metaprogramming.nom | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'lib/metaprogramming.nom')

diff --git a/lib/metaprogramming.nom b/lib/metaprogramming.nom
index a12cfc6..4aa10e3 100644
--- a/lib/metaprogramming.nom
+++ b/lib/metaprogramming.nom
@@ -13,7 +13,7 @@ lua code ".."
     |nomsu:def(%s, %s, %s)
     |]]):format(nomsu:repr(canonical.src), thunk, nomsu:repr(body.src))
     |    if #aliases > 1 then
-    |        lua = lua .. ([[
+    |        lua = lua .. "\n" .. ([[
     |do
     |    local aliased = %s
     |    local src = %s
@@ -27,8 +27,7 @@ lua code ".."
     |]]):format(nomsu:repr(aliases[i].src), nomsu:repr(canonical.src))
     |        end
     |        lua = lua .. [[
-    |end
-    |]]
+    |end]]
     |    end
     |    return nil, lua
     |end, "<source can be found in lib/metaprogramming.nom>")
@@ -72,6 +71,8 @@ parse (compile %macro_def to block %body) as: escaped compile \%macro_def to cod
     |    \(%body)
     |end
 
+rule (do %) =: %
+
 rule (%tree as lua) =:
     lua expr "nomsu:tree_to_lua(\(%tree))"
 rule (%tree as value) =:
-- 
cgit v1.2.3