aboutsummaryrefslogtreecommitdiff
path: root/lux-r
diff options
context:
space:
mode:
authorEduardo Julian2021-08-13 04:18:57 -0400
committerEduardo Julian2021-08-13 04:18:57 -0400
commite53c1a090eb9cfac3cb23d10d981648d02518ed1 (patch)
tree6c92c186525b6e73032ebea68765b791bcc27516 /lux-r
parent17629d66062b88b040a2397032f6c08361a5f3a7 (diff)
Made program: specify its bindings the same way as syntax:.
Diffstat (limited to '')
-rw-r--r--lux-r/source/program.lux6
-rw-r--r--lux-ruby/source/program.lux8
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