aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/reference.jvm.lux
diff options
context:
space:
mode:
authorEduardo Julian2017-11-06 22:03:42 -0400
committerEduardo Julian2017-11-06 22:03:42 -0400
commit0cb55507c100f6817225e644c2d19e73940edad6 (patch)
tree8e99d826fc51f052b086f0398b257176dcac11cc /new-luxc/source/luxc/lang/translation/reference.jvm.lux
parent69d3bdf98a5be8dd7aacc0b37bdbfcbf226faf62 (diff)
- Fixed some bugs.
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/reference.jvm.lux2
1 files changed, 1 insertions, 1 deletions
diff --git a/new-luxc/source/luxc/lang/translation/reference.jvm.lux b/new-luxc/source/luxc/lang/translation/reference.jvm.lux
index 57336f27c..c9243cae3 100644
--- a/new-luxc/source/luxc/lang/translation/reference.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/reference.jvm.lux
@@ -19,7 +19,7 @@
(do meta;Monad<Meta>
[function-class hostL;context]
(wrap (|>. ($i;ALOAD +0)
- ($i;GETFIELD (text;replace-all "/+" "$" function-class)
+ ($i;GETFIELD (&;normalize-name function-class)
(|> variable i.inc (i.* -1) int-to-nat functionT;captured)
commonT;$Object)))))