macros and scopes

2 files changed, 31 insertions, 0 deletions

diff --git a/lib/builtin.moon b/lib/builtin.moon
new file mode 100644
index 0000000..e7586da
--- /dev/null
+++ b/lib/builtin.moon
@@ -0,0 +1,29 @@
+import Const from require 'base'
+import Scope from require 'scope'
+
+module = {
+  def: (scope, xpr) ->
+    assert #xpr > 2, "'def' requires at least 3 arguments"
+    assert #xpr % 2 == 1, "'def' requires an even number of arguments"
+    for i=2,#xpr,2
+      assert xpr[i].atom_type == 'sym', "'def's argument ##{i} has to be a symbol"
+      xpr[i+1]\expand xpr.scope
+      scope\set xpr[i].raw, xpr[i+1].value
+
+  use: (scope, xpr) ->
+    for value in *xpr[2,]
+      value\expand xpr.scope
+      assert value.value.type == 'scope', "'use' only works on scopes"
+      scope\use value.value\getc!
+
+  require: (scope, xpr) ->
+    assert #xpr == 2, "'require' takes only one parameter"
+
+    xpr[2]\expand xpr.scope
+    name = xpr[2].value
+    assert name.type == 'str', "'require' only works on strings"
+
+    xpr.value = Const 'scope', Scope.from_table require "lib.#{name\getc!}"
+}
+
+{ k, Const 'macro', v for k, v in pairs module }
diff --git a/lib/gui.moon b/lib/gui.moon
index 979854f..20d3bcc 100644
--- a/lib/gui.moon
+++ b/lib/gui.moon
@@ -1,5 +1,6 @@
 { graphics: lg } = love
 import Op from require 'base'
+import Registry from require 'registry'
 import Copilot from require 'copilot'
 
 class out extends Op
@@ -31,6 +32,7 @@ class out extends Op
       lg.print name, x, MARGIN + HEIGHT + MARGIN
       x += WIDTH + MARGIN
 
+env = Registry!
 copilot = Copilot arg[#arg], env
 
 love.update = (dt) ->