diff options
| author | Eduardo Julian | 2017-09-05 18:36:09 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-09-05 18:36:09 -0400 |
| commit | 50cc5fbe7cc8abde05085944393fcec4c791402f (patch) | |
| tree | da706b648b3bb5e0485475a81d5b4da242aa04f5 /new-luxc/source/luxc/generator/structure.jvm.lux | |
| parent | 3add4d6996591897020236b5581f6ca21d4c2af8 (diff) | |
- Updated new compiler's code to the recent changes in the language.
- WIP: Some other changes/additions to the new compiler.
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/generator/structure.jvm.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/new-luxc/source/luxc/generator/structure.jvm.lux b/new-luxc/source/luxc/generator/structure.jvm.lux index e3a4bed75..8662aaa8d 100644 --- a/new-luxc/source/luxc/generator/structure.jvm.lux +++ b/new-luxc/source/luxc/generator/structure.jvm.lux @@ -1,7 +1,7 @@ (;module: lux - (lux (control monad) + (lux (control [monad #+ do]) (data text/format (coll [list])) [macro #+ Monad<Lux> "Lux/" Monad<Lux>] @@ -28,13 +28,13 @@ (n.>= +2 size)) membersI (|> members list;enumerate - (mapM @ (function [[idx member]] - (do @ - [memberI (generate member)] - (wrap (|>. $i;DUP - ($i;int (nat-to-int idx)) - memberI - $i;AASTORE))))) + (monad;map @ (function [[idx member]] + (do @ + [memberI (generate member)] + (wrap (|>. $i;DUP + ($i;int (nat-to-int idx)) + memberI + $i;AASTORE))))) (:: @ map $i;fuse))] (wrap (|>. ($i;array $Object size) membersI)))) |