From 968b5da15050d6804404833ea258bdb531dca9ea Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Tue, 12 Jun 2018 20:15:52 -0700
Subject: [PATCH] Fixed some bugs.

---
 core/metaprogramming.nom | 17 ++++++-----------
 nomsu.lua                |  4 ++++
 nomsu.moon               |  3 +++
 3 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/core/metaprogramming.nom b/core/metaprogramming.nom
index 2a95950..83179f5 100644
--- a/core/metaprogramming.nom
+++ b/core/metaprogramming.nom
@@ -5,10 +5,10 @@
 # Compile-time action to make compile-time actions:
 immediately
     lua> ".."
-        _ENV['ACTION'..string.as_lua_id("compile % to %")] = function(tree, \%actions, \%lua)
+        _ENV['ACTION'..string.as_lua_id("compile % to %")] = compile_time(function(tree, \%actions, \%lua)
             local lua = Lua(tree.source)
             local canonical = \%actions[1]
-            lua:append("ACTION", string.as_lua_id(canonical.stub), ' = function(tree')
+            lua:append("ACTION", string.as_lua_id(canonical.stub), ' = compile_time(function(tree')
             local args = {}
             for i,tok in ipairs(canonical) do
                 if tok.type == "Var" then args[#args+1] = tok end
@@ -21,8 +21,7 @@ immediately
             local body_lua = nomsu:tree_to_lua(\%lua):as_statements("return ")
             body_lua:remove_free_vars(args)
             body_lua:declare_locals()
-            lua:append(")\n    ", body_lua, "\nend")
-            lua:append("\nCOMPILE_TIME[ACTION", string.as_lua_id(canonical.stub), "] = true")
+            lua:append(")\n    ", body_lua, "\nend)")
 
             for i=2,#\%actions do
                 local action = \%actions[i]
@@ -35,7 +34,6 @@ immediately
                     end
                 end
                 lua:append("\n", "ARG_ORDERS[", repr(action.stub), "] = ", repr(arg_positions))
-                lua:append("\nCOMPILE_TIME[ACTION", string.as_lua_id(action.stub), "] = true")
             end
             lua:append("\nALIASES[ACTION", string.as_lua_id(canonical.stub), "] = {")
             for i,action in ipairs(\%actions) do
@@ -44,8 +42,7 @@ immediately
             end
             lua:append("}")
             return lua
-        end
-        COMPILE_TIME[_ENV['ACTION'..string.as_lua_id("compile % to %")]] = true
+        end)
 
 # Compile-time action to make actions
 immediately
@@ -95,7 +92,7 @@ immediately
         lua> ".."
             local lua = Lua(tree.source)
             local canonical = \%shorthand[1]
-            lua:append("ACTION", string.as_lua_id(canonical.stub), ' = function(tree')
+            lua:append("ACTION", string.as_lua_id(canonical.stub), ' = compile_time(function(tree')
             local args = {}
             for i,tok in ipairs(canonical) do
                 if tok.type == "Var" then args[#args+1] = tok end
@@ -129,8 +126,7 @@ immediately
                     return t.type.."("..table.concat(bits, ", ")..")"
                 end
             end
-            lua:append(")\n    local tree = ", make_tree(\%longhand), "\n    return nomsu:tree_to_lua(tree)\nend")
-            lua:append("\nCOMPILE_TIME[ACTION", string.as_lua_id(canonical.stub), "] = true")
+            lua:append(")\n    local tree = ", make_tree(\%longhand), "\n    return nomsu:tree_to_lua(tree)\nend)")
 
             for i=2,#\%shorthand do
                 local action = \%shorthand[i]
@@ -143,7 +139,6 @@ immediately
                     end
                 end
                 lua:append("\n", "ARG_ORDERS[", repr(action.stub), "] = ", repr(arg_positions))
-                lua:append("\nCOMPILE_TIME[ACTION", string.as_lua_id(action.stub), "] = true")
             end
             lua:append("\nALIASES[ACTION", string.as_lua_id(canonical.stub), "] = {")
             for i,action in ipairs(\%shorthand) do
diff --git a/nomsu.lua b/nomsu.lua
index 5d32d35..ce737d5 100644
--- a/nomsu.lua
+++ b/nomsu.lua
@@ -1288,6 +1288,10 @@ do
       self.environment.ALIASES = setmetatable({ }, {
         __mode = "k"
       })
+      self.environment.compile_time = function(fn)
+        self.environment.COMPILE_TIME[fn] = true
+        return fn
+      end
       self.environment.COMPILE_TIME = { }
       self.environment.LOADED = { }
       self.environment.AST = AST
diff --git a/nomsu.moon b/nomsu.moon
index 48e8e00..8eb06d8 100755
--- a/nomsu.moon
+++ b/nomsu.moon
@@ -283,6 +283,9 @@ class NomsuCompiler
         @environment.Source = Source
         @environment.ARG_ORDERS = setmetatable({}, {__mode:"k"})
         @environment.ALIASES = setmetatable({}, {__mode:"k"})
+        @environment.compile_time = (fn)->
+            @environment.COMPILE_TIME[fn] = true
+            return fn
         @environment.COMPILE_TIME = {}
         @environment.LOADED = {}
         @environment.AST = AST