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

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