Source/sources/gnu/kawa/slib/srfi13.java
public Object lambda221(Object sto, Object start, Object end) {
            Object tocopy = AddOp.$Mn.apply2(sto, this.sfrom);
            Object tend = AddOp.$Pl.apply2(this.tstart, tocopy);
            Object slen = AddOp.$Mn.apply2(end, start);
            srfi13.checkSubstringSpec(srfi13.string$Mnxcopy$Ex, this.target, this.tstart, tend);
            try {
                boolean x = numbers.isZero((Number) tocopy);
                if (!x) {
                    try {
                        if (numbers.isZero((Number) slen)) {
                            return misc.error$V("Cannot replicate empty (sub)string", new Object[]{srfi13.string$Mnxcopy$Ex, this.target, this.tstart, this.f222s, this.sfrom, sto, start, end});
                        } else if (Scheme.numEqu.apply2(srfi13.Lit1, slen) != Boolean.FALSE) {
                            Object obj = this.target;
                            Object obj2 = this.f222s;
                            try {
                                try {
                                    return srfi13.stringFill$Ex$V(obj, Char.make(strings.stringRef((CharSequence) obj2, ((Number) start).intValue())), new Object[]{this.tstart, tend});
                                } catch (ClassCastException e) {
                                    throw new WrongType(e, "string-ref", 2, start);
                                }
                            } catch (ClassCastException e2) {
                                throw new WrongType(e2, "string-ref", 1, obj2);
                            }
                        } else {
                            Object apply2 = DivideOp.$Sl.apply2(this.sfrom, slen);
                            try {
                                double doubleValue = numbers.floor(LangObjType.coerceRealNum(apply2)).doubleValue();
                                Object apply22 = DivideOp.$Sl.apply2(sto, slen);
                                try {
                                    if (doubleValue != numbers.floor(LangObjType.coerceRealNum(apply22)).doubleValue()) {
                                        return srfi13.$PcMultispanRepcopy$Ex(this.target, this.tstart, this.f222s, this.sfrom, sto, start, end);
                                    }
                                    Object obj3 = this.target;
                                    try {
                                        CharSequence charSequence = (CharSequence) obj3;
                                        Object obj4 = this.tstart;
                                        try {
                                            int intValue = ((Number) obj4).intValue();
                                            Object obj5 = this.f222s;
                                            try {
                                                CharSequence charSequence2 = (CharSequence) obj5;
                                                Object apply23 = AddOp.$Pl.apply2(start, DivideOp.modulo.apply2(this.sfrom, slen));
                                                try {
                                                    int intValue2 = ((Number) apply23).intValue();
                                                    Object apply24 = AddOp.$Pl.apply2(start, DivideOp.modulo.apply2(sto, slen));
                                                    try {
                                                        return srfi13.$PcStringCopy$Ex(charSequence, intValue, charSequence2, intValue2, ((Number) apply24).intValue());
                                                    } catch (ClassCastException e3) {
                                                        throw new WrongType(e3, "%string-copy!", 4, apply24);
                                                    }
                                                } catch (ClassCastException e4) {
                                                    throw new WrongType(e4, "%string-copy!", 3, apply23);
                                                }
                                            } catch (ClassCastException e5) {
                                                throw new WrongType(e5, "%string-copy!", 2, obj5);
                                            }
                                        } catch (ClassCastException e6) {
                                            throw new WrongType(e6, "%string-copy!", 1, obj4);
                                        }
                                    } catch (ClassCastException e7) {
                                        throw new WrongType(e7, "%string-copy!", 0, obj3);
                                    }
                                } catch (ClassCastException e8) {
                                    throw new WrongType(e8, "floor", 1, apply22);
                                }
                            } catch (ClassCastException e9) {
                                throw new WrongType(e9, "floor", 1, apply2);
                            }
                        }
                    } catch (ClassCastException e10) {
                        throw new WrongType(e10, "zero?", 1, slen);
                    }
                } else if (x) {
                    return Boolean.TRUE;
                } else {
                    return Boolean.FALSE;
                }
            } catch (ClassCastException e11) {
                throw new WrongType(e11, "zero?", 1, tocopy);
            }
        }
/* access modifiers changed from: 0000 */
access modifiers changed from: 0000
access modifiers changed from : 0000
public Object lambda221(Object sto, Object start, Object end) {
            Object tocopy = AddOp.$Mn.apply2(sto, this.sfrom);
            Object tend = AddOp.$Pl.apply2(this.tstart, tocopy);
            Object slen = AddOp.$Mn.apply2(end, start);
            srfi13.checkSubstringSpec(srfi13.string$Mnxcopy$Ex, this.target, this.tstart, tend);
            try {
                boolean x = numbers.isZero((Number) tocopy);
                if (!x) {
                    try {
                        if (numbers.isZero((Number) slen)) {
                            return misc.error$V("Cannot replicate empty (sub)string", new Object[]{srfi13.string$Mnxcopy$Ex, this.target, this.tstart, this.f222s, this.sfrom, sto, start, end});
                        } else if (Scheme.numEqu.apply2(srfi13.Lit1, slen) != Boolean.FALSE) {
                            Object obj = this.target;
                            Object obj2 = this.f222s;
                            try {
                                try {
                                    return srfi13.stringFill$Ex$V(obj, Char.make(strings.stringRef((CharSequence) obj2, ((Number) start).intValue())), new Object[]{this.tstart, tend});
                                } catch (ClassCastException e) {
                                    throw new WrongType(e, "string-ref", 2, start);
                                }
                            } catch (ClassCastException e2) {
                                throw new WrongType(e2, "string-ref", 1, obj2);
                            }
                        } else {
                            Object apply2 = DivideOp.$Sl.apply2(this.sfrom, slen);
                            try {
                                double doubleValue = numbers.floor(LangObjType.coerceRealNum(apply2)).doubleValue();
                                Object apply22 = DivideOp.$Sl.apply2(sto, slen);
                                try {
                                    if (doubleValue != numbers.floor(LangObjType.coerceRealNum(apply22)).doubleValue()) {
                                        return srfi13.$PcMultispanRepcopy$Ex(this.target, this.tstart, this.f222s, this.sfrom, sto, start, end);
                                    }
                                    Object obj3 = this.target;
                                    try {
                                        CharSequence charSequence = (CharSequence) obj3;
                                        Object obj4 = this.tstart;
                                        try {
                                            int intValue = ((Number) obj4).intValue();
                                            Object obj5 = this.f222s;
                                            try {
                                                CharSequence charSequence2 = (CharSequence) obj5;
                                                Object apply23 = AddOp.$Pl.apply2(start, DivideOp.modulo.apply2(this.sfrom, slen));
                                                try {
                                                    int intValue2 = ((Number) apply23).intValue();
                                                    Object apply24 = AddOp.$Pl.apply2(start, DivideOp.modulo.apply2(sto, slen));
                                                    try {
                                                        return srfi13.$PcStringCopy$Ex(charSequence, intValue, charSequence2, intValue2, ((Number) apply24).intValue());
                                                    } catch (ClassCastException e3) {
                                                        throw new WrongType(e3, "%string-copy!", 4, apply24);
                                                    }
                                                } catch (ClassCastException e4) {
                                                    throw new WrongType(e4, "%string-copy!", 3, apply23);
                                                }
                                            } catch (ClassCastException e5) {
                                                throw new WrongType(e5, "%string-copy!", 2, obj5);
                                            }
                                        } catch (ClassCastException e6) {
                                            throw new WrongType(e6, "%string-copy!", 1, obj4);
                                        }
                                    } catch (ClassCastException e7) {
                                        throw new WrongType(e7, "%string-copy!", 0, obj3);
                                    }
                                } catch (ClassCastException e8) {
                                    throw new WrongType(e8, "floor", 1, apply22);
                                }
                            } catch (ClassCastException e9) {
                                throw new WrongType(e9, "floor", 1, apply2);
                            }
                        }
                    } catch (ClassCastException e10) {
                        throw new WrongType(e10, "zero?", 1, slen);
                    }
                } else if (x) {
                    return Boolean.TRUE;
                } else {
                    return Boolean.FALSE;
                }
            } catch (ClassCastException e11) {
                throw new WrongType(e11, "zero?", 1, tocopy);
            }
        }
public Object lambda221 ( Object sto , Object start , Object end ) { Object tocopy = AddOp . $Mn . apply2 ( sto , this . sfrom ) ; Object tend = AddOp . $Pl . apply2 ( this . tstart , tocopy ) ; Object slen = AddOp . $Mn . apply2 ( end , start ) ; srfi13 . checkSubstringSpec ( srfi13 . string$Mnxcopy$Ex , this . target , this . tstart , tend ) ; try { boolean x = numbers . isZero ( ( Number ) tocopy ) ; if ( ! x ) { try { if ( numbers . isZero ( ( Number ) slen ) ) { return misc . error$V ( "Cannot replicate empty (sub)string" , new Object [ ] { srfi13 . string$Mnxcopy$Ex , this . target , this . tstart , this . f222s , this . sfrom , sto , start , end } ) ; } else if ( Scheme . numEqu . apply2 ( srfi13 . Lit1 , slen ) != Boolean . FALSE ) { Object obj = this . target ; Object obj2 = this . f222s ; try { try { return srfi13 . stringFill$Ex$V ( obj , Char . make ( strings . stringRef ( ( CharSequence ) obj2 , ( ( Number ) start ) . intValue ( ) ) ) , new Object [ ] { this . tstart , tend } ) ; } catch ( ClassCastException e ) { throw new WrongType ( e , "string-ref" , 2 , start ) ; } } catch ( ClassCastException e2 ) { throw new WrongType ( e2 , "string-ref" , 1 , obj2 ) ; } } else { Object apply2 = DivideOp . $Sl . apply2 ( this . sfrom , slen ) ; try { double doubleValue = numbers . floor ( LangObjType . coerceRealNum ( apply2 ) ) . doubleValue ( ) ; Object apply22 = DivideOp . $Sl . apply2 ( sto , slen ) ; try { if ( doubleValue != numbers . floor ( LangObjType . coerceRealNum ( apply22 ) ) . doubleValue ( ) ) { return srfi13 . $PcMultispanRepcopy$Ex ( this . target , this . tstart , this . f222s , this . sfrom , sto , start , end ) ; } Object obj3 = this . target ; try { CharSequence charSequence = ( CharSequence ) obj3 ; Object obj4 = this . tstart ; try { int intValue = ( ( Number ) obj4 ) . intValue ( ) ; Object obj5 = this . f222s ; try { CharSequence charSequence2 = ( CharSequence ) obj5 ; Object apply23 = AddOp . $Pl . apply2 ( start , DivideOp . modulo . apply2 ( this . sfrom , slen ) ) ; try { int intValue2 = ( ( Number ) apply23 ) . intValue ( ) ; Object apply24 = AddOp . $Pl . apply2 ( start , DivideOp . modulo . apply2 ( sto , slen ) ) ; try { return srfi13 . $PcStringCopy$Ex ( charSequence , intValue , charSequence2 , intValue2 , ( ( Number ) apply24 ) . intValue ( ) ) ; } catch ( ClassCastException e3 ) { throw new WrongType ( e3 , "%string-copy!" , 4 , apply24 ) ; } } catch ( ClassCastException e4 ) { throw new WrongType ( e4 , "%string-copy!" , 3 , apply23 ) ; } } catch ( ClassCastException e5 ) { throw new WrongType ( e5 , "%string-copy!" , 2 , obj5 ) ; } } catch ( ClassCastException e6 ) { throw new WrongType ( e6 , "%string-copy!" , 1 , obj4 ) ; } } catch ( ClassCastException e7 ) { throw new WrongType ( e7 , "%string-copy!" , 0 , obj3 ) ; } } catch ( ClassCastException e8 ) { throw new WrongType ( e8 , "floor" , 1 , apply22 ) ; } } catch ( ClassCastException e9 ) { throw new WrongType ( e9 , "floor" , 1 , apply2 ) ; } } } catch ( ClassCastException e10 ) { throw new WrongType ( e10 , "zero?" , 1 , slen ) ; } } else if ( x ) { return Boolean . TRUE ; } else { return Boolean . FALSE ; } } catch ( ClassCastException e11 ) { throw new WrongType ( e11 , "zero?" , 1 , tocopy ) ; } }
access modifiers changed from: 0000
access modifiers changed from : 0000