From 62b3abfcc014ca1c19d62aacdd497f6a250b372c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 25 Jul 2021 03:12:17 -0400
Subject: Better syntax for "library/lux.^multi".

---
 stdlib/source/program/aedifex/input.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/program/aedifex/input.lux')

diff --git a/stdlib/source/program/aedifex/input.lux b/stdlib/source/program/aedifex/input.lux
index 1ece2cf17..73b3c383b 100644
--- a/stdlib/source/program/aedifex/input.lux
+++ b/stdlib/source/program/aedifex/input.lux
@@ -27,7 +27,7 @@
    ["#." project (#+ Project)]
    ["#." parser]])
 
-(def: (parse_lux source_code)
+(def: (lux_parser source_code)
   (-> Text (Try Code))
   (let [parse (syntax.parse ""
                             syntax.no_aliases
@@ -39,11 +39,11 @@
       (#.Right [_ lux_code])
       (#try.Success lux_code))))
 
-(def: parse_project
+(def: project_parser
   (-> Binary (Try Project))
   (|>> (do> try.monad
             [(\ utf8.codec decode)]
-            [..parse_lux]
+            [..lux_parser]
             [(list) (<code>.run //parser.project)])))
 
 (def: #export (read monad fs profile)
@@ -52,5 +52,5 @@
       (\ fs read)
       (\ monad map (|>> (do> try.monad
                              []
-                             [..parse_project]
+                             [..project_parser]
                              [(//project.profile profile)])))))
-- 
cgit v1.2.3