diff options
Diffstat (limited to 'lux-python/source')
| -rw-r--r-- | lux-python/source/program.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lux-python/source/program.lux b/lux-python/source/program.lux index fb8c39e8e..afb244311 100644 --- a/lux-python/source/program.lux +++ b/lux-python/source/program.lux @@ -232,9 +232,9 @@ (|>> (:as java/lang/Object) (ffi.check org/python/core/PyFunction))) )] - (for {@.old (as_is <jvm>) + (for [@.old (as_is <jvm>) @.jvm (as_is <jvm>) - @.python (as_is)})) + @.python (as_is)])) (with_expansions [<jvm> (as_is (def: (call_macro inputs lux macro) (-> (List Code) Lux org/python/core/PyFunction (Try (Try [Lux (List Code)]))) @@ -262,13 +262,13 @@ #.None (exception.except ..cannot_apply_a_non_function (:as java/lang/Object macro)))))] - (for {@.old (as_is <jvm>) + (for [@.old (as_is <jvm>) @.jvm (as_is <jvm>) @.python (def: (expander macro inputs lux) Expander - (#try.Success ((:as Macro' macro) inputs lux)))})) + (#try.Success ((:as Macro' macro) inputs lux)))])) (with_expansions [<jvm> (def: host (IO (Host (_.Expression Any) (_.Statement Any))) @@ -315,7 +315,7 @@ (do try.monad [_ (execute! content)] (evaluate! context (_.var (reference.artifact context))))))))))] - (for {@.old <jvm> + (for [@.old <jvm> @.jvm <jvm> @.python @@ -355,7 +355,7 @@ (def: (re_load context content) (do try.monad [_ (execute! content)] - (evaluate! context (_.var (reference.artifact context)))))))))))})) + (evaluate! context (_.var (reference.artifact context)))))))))))])) (with_expansions [<jvm> (as_is (exception: .public (invaid_phase_application [partial_application (List Any) arity Nat]) @@ -458,13 +458,13 @@ (ffi.write! 4 (..to_host state))) handler)] (..read output)))))] - (for {@.old (as_is <jvm>) + (for [@.old (as_is <jvm>) @.jvm (as_is <jvm>) @.python (def: (extender phase_wrapper handler) (-> phase.Wrapper Extender) - (:expected handler))})) + (:expected handler))])) (def: (phase_wrapper archive) (-> Archive (runtime.Operation phase.Wrapper)) |