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-r/source/program.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lux-r/source')

diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux
index 2ba9794ad..9706cc307 100644
--- a/lux-r/source/program.lux
+++ b/lux-r/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:}]
@@ -183,7 +183,7 @@
 
 ... (def: host_bit
 ...   (-> Bit org/armedbear/lisp/LispObject)
-...   (|>> (case> #0 (org/armedbear/lisp/Nil::NIL)
+...   (|>> (pipe.case #0 (org/armedbear/lisp/Nil::NIL)
 ...               #1 (org/armedbear/lisp/Symbol::T))))
 
 (syntax: (%%code [term <code>.any])
-- 
cgit v1.2.3