From e53c1a090eb9cfac3cb23d10d981648d02518ed1 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Fri, 13 Aug 2021 04:18:57 -0400 Subject: Made program: specify its bindings the same way as syntax:. --- lux-cl/source/program.lux | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lux-cl/source') 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] -- cgit v1.2.3