From 41495e32d3f5f88b5f189f48dd4fdbfa883c6ac0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Mar 2022 18:27:37 -0400
Subject: De-sigil-ification: >

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

(limited to 'lux-cl')

diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index 91571edaf..2e3b31d3e 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -6,7 +6,7 @@
   [abstract
    ["[0]" monad {"+" do}]]
   [control
-   [pipe {"+" exec> case> new>}]
+   ["[0]" pipe]
    ["[0]" maybe]
    ["[0]" try {"+" Try}]
    ["[0]" exception {"+" exception:}]
@@ -164,8 +164,8 @@
 
 (def: host_bit
   (-> Bit org/armedbear/lisp/LispObject)
-  (|>> (case> #0 (org/armedbear/lisp/Nil::NIL)
-              #1 (org/armedbear/lisp/Symbol::T))))
+  (|>> (pipe.case #0 (org/armedbear/lisp/Nil::NIL)
+         #1 (org/armedbear/lisp/Symbol::T))))
 
 (def: (host_value value)
   (-> Any org/armedbear/lisp/LispObject)
@@ -267,7 +267,7 @@
                 [org/armedbear/lisp/SimpleString [org/armedbear/lisp/SimpleString::getStringValue {try.#Success}]]
                 [org/armedbear/lisp/Cons [(read_variant read)]]
                 [org/armedbear/lisp/SimpleVector [(read_tuple read)]]
-                [org/armedbear/lisp/Nil [(new> {try.#Success false} [])]]
+                [org/armedbear/lisp/Nil [(pipe.new {try.#Success false} [])]]
                 [org/armedbear/lisp/Closure [{try.#Success}]]
                 [program/LuxADT [program/LuxADT::getValue {try.#Success}]]))
           (case (ffi.check org/armedbear/lisp/Symbol host_object)
-- 
cgit v1.2.3