From 2f68357cb6800e97edd31abfc707d7c7905faa64 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Wed, 3 Oct 2018 16:26:24 -0700
Subject: Some incremental progress.

---
 nomnom/parser.nom | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'nomnom/parser.nom')

diff --git a/nomnom/parser.nom b/nomnom/parser.nom
index 0be394c..dfd5253 100644
--- a/nomnom/parser.nom
+++ b/nomnom/parser.nom
@@ -72,7 +72,7 @@ action [make parser from %peg] (make parser from %peg using (nil))
 action [make parser from %peg using %make_tree]:
     %peg = (lpeg pattern %peg_tidier's match of %peg)
     %peg = (lpeg re pattern %peg using %defs)
-    local action [parse %input from %filename]:
+    local action [%input from %filename parsed]:
         %input = "\%input"
         %tree_mt = {__index: {source:%input, filename:%filename}}
         %userdata = {..}
@@ -81,4 +81,4 @@ action [make parser from %peg using %make_tree]:
         %tree = (lpeg pattern %peg's match of %input with %userdata)
         assume %tree or barf "File \%filename failed to parse:\n\%input"
         return %tree
-    return (action (parse 1 from 2))
+    return (action (1 from 2 parsed))
-- 
cgit v1.2.3