recursively evaluate sequence nodes

this allows #language -injected grammars to return sequences that
further declare macros, etc.

otherwise it ends up being under one big sequence, which is compiled all
at once.

grammar.kpeg

@@ -61,7 +61,8 @@
   end
 
   def set_lang(n)
-    @_grammar_lang = require("#{n}/language/parser")::Parser.new(nil)
+    require "atomy/codeloader"
+    @_grammar_lang = Atomy::CodeLoader.require("#{n}/language/parser")::Parser.new(nil)
   end
 }
 

lib/atomy/codeloader.rb

@@ -145,14 +145,25 @@ def run_script(path)
 
       node = Atomy::Parser.parse_file(file)
 
-      res = nil
-      node.nodes.each do |n|
-        res = mod.evaluate(n, mod.compile_context)
-      end
+      res = evaluate_sequences(node, mod)
 
       [res, mod]
     end
 
+    def evaluate_sequences(n, mod)
+      if n.is_a?(Atomy::Grammar::AST::Sequence)
+        res = nil
+
+        n.nodes.each do |sub|
+          res = evaluate_sequences(sub, mod)
+        end
+
+        res
+      else
+        mod.evaluate(n, mod.compile_context)
+      end
+    end
+
     def find_source(path, search_in = $LOAD_PATH)
       if qualified?(path)
         expanded = File.expand_path(path)

spec/atomy/codeloader_spec.rb

@@ -119,6 +119,19 @@
 
       expect(res).to eq(mod)
     end
+
+    it "recursively evaluates sequences" do
+      $LOAD_PATH.unshift File.expand_path(fixture("."))
+
+      begin
+        res, _ = Atomy::CodeLoader.run_script(
+          fixture("codeloader/run_script/language-using.ay"))
+
+        expect(res).to eq("forty-two")
+      ensure
+        $LOAD_PATH.shift
+      end
+    end
   end
 
   describe ".require" do

spec/fixtures/codeloader/language/parser.ay

@@ -0,0 +1,20 @@
+require("atomy/bootstrap")
+require("atomy/grammar")
+
+eval("
+  class Parser
+    def initialize(str)
+      @str = str
+    end
+
+    def external_invoke(other, rule, *args)
+      other.result = Atomy::Grammar::AST::Sequence.new([
+        Atomy::Bootstrap.macro_definer(
+          Atomy::Grammar::AST::Quote.new(Atomy::Grammar::AST::Number.new(42)),
+          Atomy::Grammar::AST::Quote.new(Atomy::Grammar::AST::StringLiteral.new(\"forty-two\")),
+        ),
+        Atomy::Grammar::AST::Number.new(42),
+      ])
+    end
+  end
+")

spec/fixtures/codeloader/run_script/language-using.ay

@@ -0,0 +1 @@
+#language codeloader