diff options
Diffstat (limited to 'lux-cl')
| -rw-r--r-- | lux-cl/source/program.lux | 6 |
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] |