From 8c3a1afab9efeb86e2f53d743551fc689fbad257 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Jun 2022 13:33:48 -0400
Subject: De-sigil-ification: suffix : [Part 4]

---
 stdlib/source/program/aedifex.lux | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index d338fe439..339b1c03c 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -130,25 +130,25 @@
 
 (exception: .public invalid_operation)
 
-(`` (implementation: write_only
+(`` (def: write_only
       (Console IO)
-
-      (~~ (with_template [<name>]
-            [(def: (<name> _)
-               (io.io (exception.except ..invalid_operation [])))]
-
-            [read]
-            [read_line]
-            [close]
-            ))
-
-      (def: (write it)
-        (<| io.io
-            {try.#Success}
-            debug.log!
-            (if (text.ends_with? text.\n it)
-              (maybe.trusted (text.clip 0 (-- (text.size it)) it))
-              it)))))
+      (implementation
+       (~~ (with_template [<name>]
+             [(def: (<name> _)
+                (io.io (exception.except ..invalid_operation [])))]
+
+             [read]
+             [read_line]
+             [close]
+             ))
+
+       (def: (write it)
+         (<| io.io
+             {try.#Success}
+             debug.log!
+             (if (text.ends_with? text.\n it)
+               (maybe.trusted (text.clip 0 (-- (text.size it)) it))
+               it))))))
 
 (program: [[profiles operation] /cli.command]
   (do [! io.monad]
-- 
cgit v1.2.3