From 4ca397765805eda5ddee393901ed3a02001a960a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 25 Dec 2020 09:22:38 -0400
Subject: Replaced kebab-case with snake_case for naming convention.

---
 stdlib/source/test/aedifex/command/version.lux | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'stdlib/source/test/aedifex/command/version.lux')

diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index 5e60f6b9b..ee26b3b5d 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -29,34 +29,34 @@
   {#program
    ["." /]})
 
-(exception: #export console-is-closed!)
+(exception: #export console_is_closed!)
 
 (structure: simulation
   (Simulation [Bit Text])
 
-  (def: (on-read [open? state])
+  (def: (on_read [open? state])
     (if open?
-      (try.from-maybe
+      (try.from_maybe
        (do maybe.monad
          [head (text.nth 0 state)
           [_ tail] (text.split 1 state)]
          (wrap [[open? tail] head])))
-      (exception.throw ..console-is-closed! [])))
-  (def: (on-read-line [open? state])
+      (exception.throw ..console_is_closed! [])))
+  (def: (on_read_line [open? state])
     (if open?
-      (try.from-maybe
+      (try.from_maybe
        (do maybe.monad
-         [[output state] (text.split-with text.new-line state)]
+         [[output state] (text.split_with text.new_line state)]
          (wrap [[open? state] output])))
-      (exception.throw ..console-is-closed! [])))
-  (def: (on-write input [open? state])
+      (exception.throw ..console_is_closed! [])))
+  (def: (on_write input [open? state])
     (if open?
       (#try.Success [open? (format state input)])
-      (exception.throw ..console-is-closed! [])))
-  (def: (on-close [open? buffer])
+      (exception.throw ..console_is_closed! [])))
+  (def: (on_close [open? buffer])
     (if open?
       (#try.Success [false buffer])
-      (exception.throw ..console-is-closed! []))))
+      (exception.throw ..console_is_closed! []))))
 
 (def: #export echo
   (-> Text (Console Promise))
@@ -71,7 +71,7 @@
                 [#let [console (..echo "")]
                  verdict (do (try.with promise.monad)
                            [_ (/.do! console profile)
-                            logging (!.use (\ console read-line) [])]
+                            logging (!.use (\ console read_line) [])]
                            (wrap (text\= (version.format language/lux.version)
                                          logging)))]
                 (_.cover' [/.do!]
-- 
cgit v1.2.3