aboutsummaryrefslogtreecommitdiff
path: root/lux-cl/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-cl/source')
-rw-r--r--lux-cl/source/program.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index 0eaa41989..41e588f56 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -266,7 +266,7 @@
[program/LuxADT [program/LuxADT::getValue #try.Success]]))
(case (ffi.check org/armedbear/lisp/Symbol host_object)
(#.Some host_object)
- (if (is? (org/armedbear/lisp/Symbol::T) host_object)
+ (if (same? (org/armedbear/lisp/Symbol::T) host_object)
(#try.Success true)
(exception.throw ..unknown_kind_of_object (:as java/lang/Object host_object)))
@@ -386,7 +386,7 @@
@.common_lisp
(def: (extender handler)
Extender
- (:assume handler))})
+ (:expected handler))})
(def: (declare_success! _)
(-> Any (Promise Any))
@@ -406,7 +406,7 @@
(_.call/* @program (list))
)))
-(`` (program: [{service /cli.service}]
+(`` (program: [service /cli.service]
(let [extension ".cl"]
(do io.monad
[platform ..platform]