aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/parser/lux/program.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-06-30 22:53:23 -0400
committerEduardo Julian2022-06-30 22:53:23 -0400
commita8d76e48df01d0f5326faa8456797f91cb2cbeba (patch)
tree7a7a3d1e934a694e1cc4e3246dc21c2fe3093cf3 /stdlib/source/parser/lux/program.lux
parent565fe5a2e60ff3c6b612031d1c3bb89f330751da (diff)
Alternative names for (un)quoting macros.
Diffstat (limited to '')
-rw-r--r--stdlib/source/parser/lux/program.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/parser/lux/program.lux b/stdlib/source/parser/lux/program.lux
index e834136d8..eff42b3ad 100644
--- a/stdlib/source/parser/lux/program.lux
+++ b/stdlib/source/parser/lux/program.lux
@@ -59,9 +59,6 @@
(function (_ inputs)
(loop (again [immediate inputs])
(case (//.result cli immediate)
- {try.#Success [remaining output]}
- {try.#Success [remaining output]}
-
{try.#Failure try}
(case immediate
{.#End}
@@ -71,7 +68,10 @@
(do try.monad
[[remaining output] (again immediate')]
(in [{.#Item to_omit remaining}
- output])))))))
+ output])))
+
+ success
+ success))))
(def .public end
(Parser Any)