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