Made program: specify its bindings the same way as syntax:.

2 files changed, 7 insertions, 7 deletions

diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux
index de859ba50..ec796e0d2 100644
--- a/lux-r/source/program.lux
+++ b/lux-r/source/program.lux
@@ -214,7 +214,7 @@
              (ffi.array org/renjin/sexp/SEXP 0)
              
              ... (java/util/List java/lang/Object)
-             ... (:assume (..fake_list []))
+             ... (:expected (..fake_list []))
              }]
            ... Methods
            ... (program/LuxADT
@@ -575,7 +575,7 @@
       @.r
       (def: (extender handler)
         Extender
-        (:assume handler))})
+        (:expected handler))})
 
 (def: (declare_success! _)
   (-> Any (Promise Any))
@@ -589,7 +589,7 @@
         (_.apply/0 $program [])
         )))
 
-(`` (program: [{service /cli.service}]
+(`` (program: [service /cli.service]
       (let [extension ".r"]
         (do io.monad
           [[interpreter platform] ..platform]
diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux
index 5c16bdd36..5d8c81858 100644
--- a/lux-ruby/source/program.lux
+++ b/lux-ruby/source/program.lux
@@ -454,7 +454,7 @@
      (let [reference (ffi.array_read 0 args)]
        (case (..read (:as java/lang/Object reference))
          (#try.Success reference)
-         (org/jruby/RubyBoolean::newBoolean ..initial_ruby_runtime (is? (: Any reference) (: Any value)))
+         (org/jruby/RubyBoolean::newBoolean ..initial_ruby_runtime (same? (: Any reference) (: Any value)))
          
          (#try.Failure error)
          (org/jruby/RubyBoolean::newBoolean ..initial_ruby_runtime false))))))
@@ -583,7 +583,7 @@
 
 (def: (call_macro inputs lux macro)
   (-> (List Code) Lux org/jruby/RubyProc (Try (Try [Lux (List Code)])))
-  (:assume
+  (:expected
    (do try.monad
      [expansion (org/jruby/RubyProc::call (!ruby_thread_context)
                                           (|> (ffi.array org/jruby/runtime/builtin/IRubyObject 2)
@@ -789,7 +789,7 @@
       @.ruby
       (def: (extender phase_wrapper handler)
         (-> platform.Phase_Wrapper Extender)
-        (:assume handler))})
+        (:expected handler))})
 
 (def: (phase_wrapper archive)
   (-> Archive (runtime.Operation platform.Phase_Wrapper))
@@ -820,7 +820,7 @@
   (-> Any (Async Any))
   (async.future (\ world/program.default exit +0)))
 
-(program: [{service /cli.service}]
+(program: [service /cli.service]
   (let [extension ".rb"]
     (exec (do async.monad
             [_ (/.compiler {#/static.host @.ruby