From bc36487224f670c23002cc4575c0dba3e5dc1be1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 15 Mar 2022 07:24:35 -0400
Subject: De-sigil-ification: ^

---
 lux-jvm/source/luxc/lang/translation/jvm/primitive.lux | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

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

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux b/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux
index 016639f2e..49bc10ff3 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux
@@ -2,6 +2,8 @@
  [library
   [lux {"-" i64}
    ["[0]" ffi {"+" import:}]
+   [macro
+    ["^" pattern]]
    [math
     [number
      ["i" int]]]
@@ -36,13 +38,13 @@
 (def: .public (i64 value)
   (-> (I64 Any) (Operation Inst))
   (case (.int value)
-    (^template [<int> <instruction>]
+    (^.template [<int> <instruction>]
       [<int>
        (operation@in (|>> <instruction> (_.wrap type.long)))])
     ([+0 _.LCONST_0]
      [+1 _.LCONST_1])
 
-    (^template [<int> <instruction>]
+    (^.template [<int> <instruction>]
       [<int>
        (operation@in (|>> <instruction> _.I2L (_.wrap type.long)))])
     ([-1 _.ICONST_M1]
@@ -77,17 +79,17 @@
 (def: .public (f64 value)
   (-> Frac (Operation Inst))
   (case value
-    (^template [<int> <instruction>]
+    (^.template [<int> <instruction>]
       [<int>
        (operation@in (|>> <instruction> (_.wrap type.double)))])
     ([+1.0 _.DCONST_1])
 
-    (^template [<int> <instruction>]
+    (^.template [<int> <instruction>]
       [<int>
        (operation@in (|>> <instruction> _.F2D (_.wrap type.double)))])
     ([+2.0 _.FCONST_2])
 
-    (^template [<int> <instruction>]
+    (^.template [<int> <instruction>]
       [<int>
        (operation@in (|>> <instruction> _.I2D (_.wrap type.double)))])
     ([-1.0 _.ICONST_M1]
-- 
cgit v1.2.3