diff options
Diffstat (limited to '')
| -rw-r--r-- | lux-r/source/program.lux | 4 | ||||
| -rw-r--r-- | lux-ruby/source/program.lux | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux index 15323662a..ec77f8c0d 100644 --- a/lux-r/source/program.lux +++ b/lux-r/source/program.lux @@ -552,7 +552,7 @@ (Program _.Expression _.Expression) (_.apply/2 program [(runtime.lux::program_args (_.commandArgs/0 [])) _.null])) -(for {@.old +(for [@.old (def: extender Extender ... TODO: Stop relying on coercions ASAP. @@ -574,7 +574,7 @@ @.r (def: (extender handler) Extender - (:expected handler))}) + (:expected handler))]) (def: (declare_success! _) (-> Any (Promise Any)) diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux index d5a0c9b82..25e3cc2ab 100644 --- a/lux-ruby/source/program.lux +++ b/lux-ruby/source/program.lux @@ -637,7 +637,7 @@ [_ (run! content)] (run! (_.global (reference.artifact context)))))))))) -(for {@.old +(for [@.old (as_is (exception: .public (invaid_phase_application [partial_application (List Any) arity Nat]) (exception.report @@ -778,15 +778,15 @@ @.ruby (def: (extender phase_wrapper handler) (-> phase.Wrapper Extender) - (:expected handler))}) + (:expected handler))]) (def: (phase_wrapper archive) (-> Archive (runtime.Operation phase.Wrapper)) (do phase.monad [] (in (:as phase.Wrapper - (for {@.old (..host_phase (list)) - @.ruby (|>>)}))))) + (for [@.old (..host_phase (list)) + @.ruby (|>>)]))))) (def: platform (IO (Platform Register _.Expression _.Statement)) |