From 88006e957373bbd72ec68897474303964885fc68 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 1 Nov 2017 13:36:15 -0400
Subject: - Minor refactorings. - Fixed some bugs. - Enabled macro-expansion
 for statements.

---
 new-luxc/source/luxc/lang/translation/reference.jvm.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/reference.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/reference.jvm.lux b/new-luxc/source/luxc/lang/translation/reference.jvm.lux
index 7c42f9f08..da86dd5b9 100644
--- a/new-luxc/source/luxc/lang/translation/reference.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/reference.jvm.lux
@@ -12,7 +12,7 @@
               (translation [";T" common]
                            [";T" function]))))
 
-(def: #export (generate-captured variable)
+(def: #export (translate-captured variable)
   (-> Variable (Meta $;Inst))
   (do meta;Monad<Meta>
     [function-class commonT;function]
@@ -21,11 +21,11 @@
                             (|> variable i.inc (i.* -1) int-to-nat functionT;captured)
                             commonT;$Object)))))
 
-(def: #export (generate-variable variable)
+(def: #export (translate-variable variable)
   (-> Variable (Meta $;Inst))
   (meta/wrap ($i;ALOAD (int-to-nat variable))))
 
-(def: #export (generate-definition [def-module def-name])
+(def: #export (translate-definition [def-module def-name])
   (-> Ident (Meta $;Inst))
   (let [bytecode-name (format def-module "/" (&;normalize-name def-name))]
     (meta/wrap ($i;GETSTATIC bytecode-name commonT;value-field commonT;$Object))))
-- 
cgit v1.2.3