diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/compiler/default/phase/analysis/macro.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/compiler/default/phase/analysis/macro.lux b/stdlib/source/lux/compiler/default/phase/analysis/macro.lux index c37375805..a674dde07 100644 --- a/stdlib/source/lux/compiler/default/phase/analysis/macro.lux +++ b/stdlib/source/lux/compiler/default/phase/analysis/macro.lux @@ -5,7 +5,7 @@ [data ["." error (#+ Error)] [collection - ["." array (#+ Array)]]] + [array (#+ Array)]]] ["." host (#+ import:)]]) (import: java/lang/reflect/Method @@ -29,7 +29,7 @@ (def: #export (expand macro inputs) (-> Macro (List Code) (Meta (List Code))) - (function (_ compiler) + (function (_ state) (do error.Monad<Error> [apply-method (|> macro (:coerce Object) @@ -38,7 +38,7 @@ output (Method::invoke [(:coerce Object macro) (|> (host.array Object 2) (host.array-write 0 (:coerce Object inputs)) - (host.array-write 1 (:coerce Object compiler)))] + (host.array-write 1 (:coerce Object state)))] apply-method)] (:coerce (Error [Lux (List Code)]) output)))) |