aboutsummaryrefslogtreecommitdiff
path: root/lux-cl/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-cl/source')
-rw-r--r--lux-cl/source/program.lux8
1 files changed, 4 insertions, 4 deletions
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)