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-ruby/source/program.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lux-ruby')

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
-- 
cgit v1.2.3