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/source') 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