aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source/luxc/lang/host/jvm/inst.lux
diff options
context:
space:
mode:
Diffstat (limited to 'lux-jvm/source/luxc/lang/host/jvm/inst.lux')
-rw-r--r--lux-jvm/source/luxc/lang/host/jvm/inst.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/lux-jvm/source/luxc/lang/host/jvm/inst.lux b/lux-jvm/source/luxc/lang/host/jvm/inst.lux
index bbeffb023..64113cd68 100644
--- a/lux-jvm/source/luxc/lang/host/jvm/inst.lux
+++ b/lux-jvm/source/luxc/lang/host/jvm/inst.lux
@@ -152,7 +152,7 @@
(def: .public make_label
(All (_ s) (Operation s org/objectweb/asm/Label))
(function (_ state)
- {#try.Success [state (org/objectweb/asm/Label::new)]}))
+ {try.#Success [state (org/objectweb/asm/Label::new)]}))
(def: .public (with_label action)
(All (_ a) (-> (-> org/objectweb/asm/Label a) a))
@@ -414,10 +414,10 @@
(def: .public (array elementT)
(-> (Type Value) Inst)
(case (type.primitive? elementT)
- {#.Left elementT}
+ {.#Left elementT}
(ANEWARRAY elementT)
- {#.Right elementT}
+ {.#Right elementT}
(NEWARRAY elementT)))
(template [<name> <boolean> <byte> <short> <int> <long> <float> <double> <char>]
@@ -459,11 +459,11 @@
(def: .public (fuse insts)
(-> (List Inst) Inst)
(case insts
- #.End
+ {.#End}
function.identity
- {#.Item singleton #.End}
+ {.#Item singleton {.#End}}
singleton
- {#.Item head tail}
+ {.#Item head tail}
(function.composite (fuse tail) head)))