aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/host/jvm/inst.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/host/jvm/inst.lux')
-rw-r--r--new-luxc/source/luxc/lang/host/jvm/inst.lux11
1 files changed, 6 insertions, 5 deletions
diff --git a/new-luxc/source/luxc/lang/host/jvm/inst.lux b/new-luxc/source/luxc/lang/host/jvm/inst.lux
index 35f779799..fcf28d4a7 100644
--- a/new-luxc/source/luxc/lang/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux
@@ -11,8 +11,9 @@
["." product]
["." maybe]
["." error]
- [text
- format]
+ [number
+ ["n" nat]
+ ["i" int]]
[collection
["." list ("#@." functor)]]]
[macro
@@ -305,13 +306,13 @@
(-> //.Label (List [Int //.Label]) Inst)
(function (_ visitor)
(let [keys+labels (list.sort (function (_ left right)
- (i/< (product.left left) (product.left right)))
+ (i.< (product.left left) (product.left right)))
keys+labels)
array-size (list.size keys+labels)
keys-array (host.array int array-size)
labels-array (host.array org/objectweb/asm/Label array-size)
_ (loop [idx 0]
- (if (n/< array-size idx)
+ (if (n.< array-size idx)
(let [[key label] (maybe.assume (list.nth idx keys+labels))]
(exec
(host.array-write idx (host.long-to-int key) keys-array)
@@ -327,7 +328,7 @@
(let [num-labels (list.size labels)
labels-array (host.array org/objectweb/asm/Label num-labels)
_ (loop [idx 0]
- (if (n/< num-labels idx)
+ (if (n.< num-labels idx)
(exec (host.array-write idx
(maybe.assume (list.nth idx labels))
labels-array)