aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux8
1 files changed, 5 insertions, 3 deletions
diff --git a/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux b/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux
index fd86253d5..39934dbb8 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux
@@ -255,11 +255,13 @@
rightI ..check_stringI
(_.INVOKEVIRTUAL $String "concat" (type.method [(list $String) $String (list)]))))
-(def: (text::clip [startI endI subjectI])
+(def: (text::clip [offsetI lengthI subjectI])
(Trinary Inst)
(|>> subjectI ..check_stringI
- startI jvm_intI
- endI jvm_intI
+ offsetI jvm_intI
+ _.DUP
+ lengthI jvm_intI
+ _.IADD
(_.INVOKEVIRTUAL $String "substring" (type.method [(list type.int type.int) $String (list)]))))
(def: index_method (type.method [(list $String type.int) type.int (list)]))