From 039c620df270e88f6d50df677b7dedd65b868449 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Tue, 22 Aug 2017 03:28:44 -0700
Subject: [PATCH] Macro macro macro macro.

---
 core.moon  | 13 +++++++++++++
 nomic.moon |  1 +
 2 files changed, 14 insertions(+)

diff --git a/core.moon b/core.moon
index 9328676..fb694ef 100755
--- a/core.moon
+++ b/core.moon
@@ -194,5 +194,18 @@ if (not %condition) %body
 
 g\def [[do %action]], (vars)=> return vars.action(self,vars)
 
+g\defmacro [[lua %lua_code]], (vars,helpers,ftype)=>
+    with helpers
+        lua_code = vars.lua_code.value
+        switch lua_code.type
+            when "List"
+                .lua table.concat[i.value.value for i in *lua_code.value]
+            else
+                .lua(lua_code.value)
+    return nil
+
+g\defmacro [[macro %spec %body]], (vars,helpers,ftype)=>
+    self\simplemacro vars.spec.value.value, vars.body.value.value.src
+
 
 return g
diff --git a/nomic.moon b/nomic.moon
index a2a35a6..cbe6c8a 100644
--- a/nomic.moon
+++ b/nomic.moon
@@ -187,6 +187,7 @@ class Game
         return invocations, arg_names
 
     defmacro: (spec, fn)=>
+        assert fn, "No function supplied"
         invocations,arg_names = self\get_invocations spec
         for invocation in *invocations
             @macros[invocation] = {fn, arg_names}