diff options
| author | Eduardo Julian | 2020-10-25 05:10:08 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-10-25 05:10:08 -0400 |
| commit | 72b4eecdc514387ab3b1c105cfd49436c9eb1e8d (patch) | |
| tree | 20d8e52d5769b00be003dea58754b5bea79bb9e3 /stdlib/source/lux/host.old.lux | |
| parent | e153b011bb94ba95474505c307873616bb493b6d (diff) | |
Some improvements to the Lux syntax parser.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/host.old.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/host.old.lux b/stdlib/source/lux/host.old.lux index fa726442b..b65058c88 100644 --- a/stdlib/source/lux/host.old.lux +++ b/stdlib/source/lux/host.old.lux @@ -1389,8 +1389,8 @@ (case member (^or (#ConstructorDecl [commons _]) (#MethodDecl [commons _])) (let [(^slots [#import-member-tvars #import-member-args]) commons] - (do {@ meta.monad} - [arg-inputs (monad.map @ + (do {! meta.monad} + [arg-inputs (monad.map ! (: (-> [Bit GenericType] (Meta [Bit Code])) (function (_ [maybe? _]) (with-gensyms [arg-name] @@ -1495,7 +1495,7 @@ (list@map type-param->type-arg))] (case member (#EnumDecl enum-members) - (do {@ meta.monad} + (do {! meta.monad} [#let [enum-type (: Code (case class-tvars #.Nil @@ -1690,9 +1690,9 @@ (java/util/List::size [] my-list) java/lang/Character$UnicodeScript::LATIN )} - (do {@ meta.monad} + (do {! meta.monad} [kind (class-kind class-decl) - =members (monad.map @ (member-import$ (product.right class-decl) kind class-decl) members)] + =members (monad.map ! (member-import$ (product.right class-decl) kind class-decl) members)] (wrap (list& (class-import$ class-decl) (list@join =members))))) (syntax: #export (array {type (..generic-type^ (list))} |