diff options
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))} |