diff options
author | Eduardo Julian | 2017-11-29 22:49:56 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-11-29 22:49:56 -0400 |
commit | 4433c9bcd6c6cac44c018aad2e21a5b4d7cc4896 (patch) | |
tree | 0c166db6e01b41dfadd01801b5242967f2363b7d /new-luxc/source/luxc/lang/translation/reference.jvm.lux | |
parent | 77c113a3455cdbc4bb485a94f67f392480cdcfbf (diff) |
- Adapted main codebase to the latest syntatic changes.
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/reference.jvm.lux | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/new-luxc/source/luxc/lang/translation/reference.jvm.lux b/new-luxc/source/luxc/lang/translation/reference.jvm.lux index bfc838041..bfb5856d4 100644 --- a/new-luxc/source/luxc/lang/translation/reference.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/reference.jvm.lux @@ -1,17 +1,17 @@ -(;module: +(.module: lux (lux (control [monad #+ do]) (data [text "text/" Hash<Text>] text/format) [macro "macro/" Monad<Meta>]) (luxc ["&" lang] - (lang [";L" host] + (lang [".L" host] (host ["$" jvm] (jvm ["$t" type] ["$i" inst])) ["ls" synthesis] - [";L" variable #+ Variable] - (translation [";T" common])))) + [".L" variable #+ Variable] + (translation [".T" common])))) (do-template [<name> <prefix>] [(def: #export (<name> idx) @@ -23,27 +23,27 @@ ) (def: #export (translate-captured variable) - (-> Variable (Meta $;Inst)) - (do macro;Monad<Meta> - [this-module macro;current-module-name - function-class hostL;context - #let [function-class (format (text;replace-all "/" "." this-module) "." function-class)]] - (wrap (|>. ($i;ALOAD +0) - ($i;GETFIELD function-class - (|> variable i.inc (i.* -1) int-to-nat captured) - commonT;$Object))))) + (-> Variable (Meta $.Inst)) + (do macro.Monad<Meta> + [this-module macro.current-module-name + function-class hostL.context + #let [function-class (format (text.replace-all "/" "." this-module) "." function-class)]] + (wrap (|>> ($i.ALOAD +0) + ($i.GETFIELD function-class + (|> variable i/inc (i/* -1) int-to-nat captured) + commonT.$Object))))) (def: #export (translate-local variable) - (-> Variable (Meta $;Inst)) - (macro/wrap ($i;ALOAD (int-to-nat variable)))) + (-> Variable (Meta $.Inst)) + (macro/wrap ($i.ALOAD (int-to-nat variable)))) (def: #export (translate-variable variable) - (-> Variable (Meta $;Inst)) - (if (variableL;captured? variable) + (-> Variable (Meta $.Inst)) + (if (variableL.captured? variable) (translate-captured variable) (translate-local variable))) (def: #export (translate-definition [def-module def-name]) - (-> Ident (Meta $;Inst)) - (let [bytecode-name (format def-module "/" (&;normalize-name def-name) (%n (text/hash def-name)))] - (macro/wrap ($i;GETSTATIC bytecode-name commonT;value-field commonT;$Object)))) + (-> Ident (Meta $.Inst)) + (let [bytecode-name (format def-module "/" (&.normalize-name def-name) (%n (text/hash def-name)))] + (macro/wrap ($i.GETSTATIC bytecode-name commonT.value-field commonT.$Object)))) |