diff options
Diffstat (limited to 'lux-jvm')
-rw-r--r-- | lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux | 8 |
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)])) |