diff options
author | Eduardo Julian | 2019-08-20 22:00:59 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-08-20 22:00:59 -0400 |
commit | 59ededb795732e04ac8e1eaceb2b1509a1c1cc23 (patch) | |
tree | c0498fbae7cd18fa9434c972a6f7e35d0e02b456 /new-luxc/source/program.lux | |
parent | cdfda2f80b2abd8ec7d8021aab910ccc82271ade (diff) |
WIP: Make new-luxc instructions rely on the Descriptor type.
Diffstat (limited to 'new-luxc/source/program.lux')
-rw-r--r-- | new-luxc/source/program.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/new-luxc/source/program.lux b/new-luxc/source/program.lux index 2ec090903..1311392a9 100644 --- a/new-luxc/source/program.lux +++ b/new-luxc/source/program.lux @@ -6,10 +6,10 @@ [monad (#+ do)]] [control ["." io (#+ IO)] + ["." try (#+ Try)] [parser [cli (#+ program:)]]] [data - ["." error (#+ Error)] [collection [array (#+ Array)] ["." dictionary]]] @@ -67,12 +67,12 @@ (def: #export (expander macro inputs lux) Expander - (do error.monad + (do try.monad [apply-method (|> macro (:coerce java/lang/Object) (java/lang/Object::getClass) (java/lang/Class::getMethod "apply" _apply-args))] - (:coerce (Error (Error [Lux (List Code)])) + (:coerce (Try (Try [Lux (List Code)])) (java/lang/reflect/Method::invoke (:coerce java/lang/Object macro) (|> (host.array java/lang/Object 2) |