Source/sources/gnu/kawa/slib/srfi13.java
public CharSequence lambda168(Object start, Object end) {
            Object error$V;
            frame74 frame74 = new frame74();
            frame74.staticLink = this;
            if (misc.isProcedure(this.criterion)) {
                Object slen = AddOp.$Mn.apply2(end, start);
                try {
                    frame74.temp = strings.makeString(((Number) slen).intValue());
                    Object ans$Mnlen = srfi13.stringFold$V(frame74.lambda$Fn169, srfi13.Lit0, this.f208s, new Object[]{start, end});
                    if (Scheme.numEqu.apply2(ans$Mnlen, slen) != Boolean.FALSE) {
                        return frame74.temp;
                    }
                    try {
                        return strings.substring(frame74.temp, 0, ((Number) ans$Mnlen).intValue());
                    } catch (ClassCastException e) {
                        throw new WrongType(e, "substring", 3, ans$Mnlen);
                    }
                } catch (ClassCastException e2) {
                    throw new WrongType(e2, "make-string", 1, slen);
                }
            } else {
                try {
                    if (Scheme.applyToArgs.apply2(srfi13.loc$char$Mnset$Qu.get(), this.criterion) != Boolean.FALSE) {
                        error$V = this.criterion;
                    } else if (characters.isChar(this.criterion)) {
                        try {
                            error$V = Scheme.applyToArgs.apply2(srfi13.loc$char$Mnset.get(), this.criterion);
                        } catch (UnboundLocationException e3) {
                            e3.setLine("/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm", 1097, 26);
                            throw e3;
                        }
                    } else {
                        error$V = misc.error$V("string-delete criterion not predicate, char or char-set", new Object[]{this.criterion});
                    }
                    frame74.cset = error$V;
                    Object len = srfi13.stringFold$V(frame74.lambda$Fn170, srfi13.Lit0, this.f208s, new Object[]{start, end});
                    try {
                        frame74.ans = strings.makeString(((Number) len).intValue());
                        srfi13.stringFold$V(frame74.lambda$Fn171, srfi13.Lit0, this.f208s, new Object[]{start, end});
                        return frame74.ans;
                    } catch (ClassCastException e4) {
                        throw new WrongType(e4, "make-string", 1, len);
                    }
                } catch (UnboundLocationException e5) {
                    e5.setLine("/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm", 1096, 22);
                    throw e5;
                }
            }
        }
/* access modifiers changed from: 0000 */
access modifiers changed from: 0000
access modifiers changed from : 0000
public CharSequence lambda168(Object start, Object end) {
            Object error$V;
            frame74 frame74 = new frame74();
            frame74.staticLink = this;
            if (misc.isProcedure(this.criterion)) {
                Object slen = AddOp.$Mn.apply2(end, start);
                try {
                    frame74.temp = strings.makeString(((Number) slen).intValue());
                    Object ans$Mnlen = srfi13.stringFold$V(frame74.lambda$Fn169, srfi13.Lit0, this.f208s, new Object[]{start, end});
                    if (Scheme.numEqu.apply2(ans$Mnlen, slen) != Boolean.FALSE) {
                        return frame74.temp;
                    }
                    try {
                        return strings.substring(frame74.temp, 0, ((Number) ans$Mnlen).intValue());
                    } catch (ClassCastException e) {
                        throw new WrongType(e, "substring", 3, ans$Mnlen);
                    }
                } catch (ClassCastException e2) {
                    throw new WrongType(e2, "make-string", 1, slen);
                }
            } else {
                try {
                    if (Scheme.applyToArgs.apply2(srfi13.loc$char$Mnset$Qu.get(), this.criterion) != Boolean.FALSE) {
                        error$V = this.criterion;
                    } else if (characters.isChar(this.criterion)) {
                        try {
                            error$V = Scheme.applyToArgs.apply2(srfi13.loc$char$Mnset.get(), this.criterion);
                        } catch (UnboundLocationException e3) {
                            e3.setLine("/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm", 1097, 26);
                            throw e3;
                        }
                    } else {
                        error$V = misc.error$V("string-delete criterion not predicate, char or char-set", new Object[]{this.criterion});
                    }
                    frame74.cset = error$V;
                    Object len = srfi13.stringFold$V(frame74.lambda$Fn170, srfi13.Lit0, this.f208s, new Object[]{start, end});
                    try {
                        frame74.ans = strings.makeString(((Number) len).intValue());
                        srfi13.stringFold$V(frame74.lambda$Fn171, srfi13.Lit0, this.f208s, new Object[]{start, end});
                        return frame74.ans;
                    } catch (ClassCastException e4) {
                        throw new WrongType(e4, "make-string", 1, len);
                    }
                } catch (UnboundLocationException e5) {
                    e5.setLine("/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm", 1096, 22);
                    throw e5;
                }
            }
        }
public CharSequence lambda168 ( Object start , Object end ) { Object error$V ; frame74 frame74 = new frame74 ( ) ; frame74 . staticLink = this ; if ( misc . isProcedure ( this . criterion ) ) { Object slen = AddOp . $Mn . apply2 ( end , start ) ; try { frame74 . temp = strings . makeString ( ( ( Number ) slen ) . intValue ( ) ) ; Object ans$Mnlen = srfi13 . stringFold$V ( frame74 . lambda$Fn169 , srfi13 . Lit0 , this . f208s , new Object [ ] { start , end } ) ; if ( Scheme . numEqu . apply2 ( ans$Mnlen , slen ) != Boolean . FALSE ) { return frame74 . temp ; } try { return strings . substring ( frame74 . temp , 0 , ( ( Number ) ans$Mnlen ) . intValue ( ) ) ; } catch ( ClassCastException e ) { throw new WrongType ( e , "substring" , 3 , ans$Mnlen ) ; } } catch ( ClassCastException e2 ) { throw new WrongType ( e2 , "make-string" , 1 , slen ) ; } } else { try { if ( Scheme . applyToArgs . apply2 ( srfi13 . loc$char$Mnset$Qu . get ( ) , this . criterion ) != Boolean . FALSE ) { error$V = this . criterion ; } else if ( characters . isChar ( this . criterion ) ) { try { error$V = Scheme . applyToArgs . apply2 ( srfi13 . loc$char$Mnset . get ( ) , this . criterion ) ; } catch ( UnboundLocationException e3 ) { e3 . setLine ( "/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm" , 1097 , 26 ) ; throw e3 ; } } else { error$V = misc . error$V ( "string-delete criterion not predicate, char or char-set" , new Object [ ] { this . criterion } ) ; } frame74 . cset = error$V ; Object len = srfi13 . stringFold$V ( frame74 . lambda$Fn170 , srfi13 . Lit0 , this . f208s , new Object [ ] { start , end } ) ; try { frame74 . ans = strings . makeString ( ( ( Number ) len ) . intValue ( ) ) ; srfi13 . stringFold$V ( frame74 . lambda$Fn171 , srfi13 . Lit0 , this . f208s , new Object [ ] { start , end } ) ; return frame74 . ans ; } catch ( ClassCastException e4 ) { throw new WrongType ( e4 , "make-string" , 1 , len ) ; } } catch ( UnboundLocationException e5 ) { e5 . setLine ( "/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm" , 1096 , 22 ) ; throw e5 ; } } }
access modifiers changed from: 0000
access modifiers changed from : 0000