aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source/luxc/lang/host/jvm
diff options
context:
space:
mode:
authorEduardo Julian2021-08-11 02:38:59 -0400
committerEduardo Julian2021-08-11 02:38:59 -0400
commita62ce3f9c2b605e0033f4772b0f64c4525de4d86 (patch)
treeecbabe8f110d82b2e6481cf7c0532d4bd4386570 /lux-jvm/source/luxc/lang/host/jvm
parent464b6e8f5e6c62f58fa8c7ff61ab2ad215e98bd1 (diff)
Relocated maybe and lazy from data to control.
Diffstat (limited to 'lux-jvm/source/luxc/lang/host/jvm')
-rw-r--r--lux-jvm/source/luxc/lang/host/jvm/inst.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/lux-jvm/source/luxc/lang/host/jvm/inst.lux b/lux-jvm/source/luxc/lang/host/jvm/inst.lux
index f7a8e6b18..7229babab 100644
--- a/lux-jvm/source/luxc/lang/host/jvm/inst.lux
+++ b/lux-jvm/source/luxc/lang/host/jvm/inst.lux
@@ -6,12 +6,12 @@
[monad (#+ do)]]
[control
["." function]
+ ["." maybe]
["." try]
["p" parser
["s" code]]]
[data
["." product]
- ["." maybe]
[collection
["." list ("#@." functor)]]]
[macro
@@ -367,9 +367,9 @@
(def: .public (LOOKUPSWITCH default keys+labels)
(-> //.Label (List [Int //.Label]) Inst)
(function (_ visitor)
- (let [keys+labels (list.sort (function (_ left right)
- (i.< (product.left left) (product.left right)))
- keys+labels)
+ (let [keys+labels (list.sorted (function (_ left right)
+ (i.< (product.left left) (product.left right)))
+ keys+labels)
array_size (list.size keys+labels)
keys_array (ffi.array int array_size)
labels_array (ffi.array org/objectweb/asm/Label array_size)