Source/sources/gnu/kawa/slib/srfi13.java
public Object lambda186(Object start, Object end) {
            if (characters.isChar(this.criterion)) {
                Object count = srfi13.Lit0;
                Object i = start;
                while (Scheme.numGEq.apply2(i, end) == Boolean.FALSE) {
                    Object i2 = AddOp.$Pl.apply2(i, srfi13.Lit1);
                    Object obj = this.criterion;
                    try {
                        Char charR = (Char) obj;
                        Object obj2 = this.f211s;
                        try {
                            try {
                                if (characters.isChar$Eq(charR, Char.make(strings.stringRef((CharSequence) obj2, ((Number) i).intValue())))) {
                                    count = AddOp.$Pl.apply2(count, srfi13.Lit1);
                                }
                                i = i2;
                            } catch (ClassCastException e) {
                                throw new WrongType(e, "string-ref", 2, i);
                            }
                        } catch (ClassCastException e2) {
                            throw new WrongType(e2, "string-ref", 1, obj2);
                        }
                    } catch (ClassCastException e3) {
                        throw new WrongType(e3, "char=?", 1, obj);
                    }
                }
                return count;
            }
            try {
                if (Scheme.applyToArgs.apply2(srfi13.loc$char$Mnset$Qu.get(), this.criterion) != Boolean.FALSE) {
                    Object count2 = srfi13.Lit0;
                    Object i3 = start;
                    while (Scheme.numGEq.apply2(i3, end) == Boolean.FALSE) {
                        Object i4 = AddOp.$Pl.apply2(i3, srfi13.Lit1);
                        ApplyToArgs applyToArgs = Scheme.applyToArgs;
                        try {
                            Object obj3 = srfi13.loc$char$Mnset$Mncontains$Qu.get();
                            Object obj4 = this.criterion;
                            Object obj5 = this.f211s;
                            try {
                                try {
                                    if (applyToArgs.apply3(obj3, obj4, Char.make(strings.stringRef((CharSequence) obj5, ((Number) i3).intValue()))) != Boolean.FALSE) {
                                        count2 = AddOp.$Pl.apply2(count2, srfi13.Lit1);
                                    }
                                    i3 = i4;
                                } catch (ClassCastException e4) {
                                    throw new WrongType(e4, "string-ref", 2, i3);
                                }
                            } catch (ClassCastException e5) {
                                throw new WrongType(e5, "string-ref", 1, obj5);
                            }
                        } catch (UnboundLocationException e6) {
                            e6.setLine("/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm", 1248, 16);
                            throw e6;
                        }
                    }
                    return count2;
                } else if (misc.isProcedure(this.criterion)) {
                    Object count3 = srfi13.Lit0;
                    Object i5 = start;
                    while (Scheme.numGEq.apply2(i5, end) == Boolean.FALSE) {
                        Object i6 = AddOp.$Pl.apply2(i5, srfi13.Lit1);
                        ApplyToArgs applyToArgs2 = Scheme.applyToArgs;
                        Object obj6 = this.criterion;
                        Object obj7 = this.f211s;
                        try {
                            try {
                                if (applyToArgs2.apply2(obj6, Char.make(strings.stringRef((CharSequence) obj7, ((Number) i5).intValue()))) != Boolean.FALSE) {
                                    count3 = AddOp.$Pl.apply2(count3, srfi13.Lit1);
                                }
                                i5 = i6;
                            } catch (ClassCastException e7) {
                                throw new WrongType(e7, "string-ref", 2, i5);
                            }
                        } catch (ClassCastException e8) {
                            throw new WrongType(e8, "string-ref", 1, obj7);
                        }
                    }
                    return count3;
                } else {
                    return misc.error$V("CRITERION param is neither char-set or char.", new Object[]{srfi13.string$Mncount, this.criterion});
                }
            } catch (UnboundLocationException e9) {
                e9.setLine("/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm", 1246, 5);
                throw e9;
            }
        }
/* access modifiers changed from: 0000 */
access modifiers changed from: 0000
access modifiers changed from : 0000
public Object lambda186(Object start, Object end) {
            if (characters.isChar(this.criterion)) {
                Object count = srfi13.Lit0;
                Object i = start;
                while (Scheme.numGEq.apply2(i, end) == Boolean.FALSE) {
                    Object i2 = AddOp.$Pl.apply2(i, srfi13.Lit1);
                    Object obj = this.criterion;
                    try {
                        Char charR = (Char) obj;
                        Object obj2 = this.f211s;
                        try {
                            try {
                                if (characters.isChar$Eq(charR, Char.make(strings.stringRef((CharSequence) obj2, ((Number) i).intValue())))) {
                                    count = AddOp.$Pl.apply2(count, srfi13.Lit1);
                                }
                                i = i2;
                            } catch (ClassCastException e) {
                                throw new WrongType(e, "string-ref", 2, i);
                            }
                        } catch (ClassCastException e2) {
                            throw new WrongType(e2, "string-ref", 1, obj2);
                        }
                    } catch (ClassCastException e3) {
                        throw new WrongType(e3, "char=?", 1, obj);
                    }
                }
                return count;
            }
            try {
                if (Scheme.applyToArgs.apply2(srfi13.loc$char$Mnset$Qu.get(), this.criterion) != Boolean.FALSE) {
                    Object count2 = srfi13.Lit0;
                    Object i3 = start;
                    while (Scheme.numGEq.apply2(i3, end) == Boolean.FALSE) {
                        Object i4 = AddOp.$Pl.apply2(i3, srfi13.Lit1);
                        ApplyToArgs applyToArgs = Scheme.applyToArgs;
                        try {
                            Object obj3 = srfi13.loc$char$Mnset$Mncontains$Qu.get();
                            Object obj4 = this.criterion;
                            Object obj5 = this.f211s;
                            try {
                                try {
                                    if (applyToArgs.apply3(obj3, obj4, Char.make(strings.stringRef((CharSequence) obj5, ((Number) i3).intValue()))) != Boolean.FALSE) {
                                        count2 = AddOp.$Pl.apply2(count2, srfi13.Lit1);
                                    }
                                    i3 = i4;
                                } catch (ClassCastException e4) {
                                    throw new WrongType(e4, "string-ref", 2, i3);
                                }
                            } catch (ClassCastException e5) {
                                throw new WrongType(e5, "string-ref", 1, obj5);
                            }
                        } catch (UnboundLocationException e6) {
                            e6.setLine("/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm", 1248, 16);
                            throw e6;
                        }
                    }
                    return count2;
                } else if (misc.isProcedure(this.criterion)) {
                    Object count3 = srfi13.Lit0;
                    Object i5 = start;
                    while (Scheme.numGEq.apply2(i5, end) == Boolean.FALSE) {
                        Object i6 = AddOp.$Pl.apply2(i5, srfi13.Lit1);
                        ApplyToArgs applyToArgs2 = Scheme.applyToArgs;
                        Object obj6 = this.criterion;
                        Object obj7 = this.f211s;
                        try {
                            try {
                                if (applyToArgs2.apply2(obj6, Char.make(strings.stringRef((CharSequence) obj7, ((Number) i5).intValue()))) != Boolean.FALSE) {
                                    count3 = AddOp.$Pl.apply2(count3, srfi13.Lit1);
                                }
                                i5 = i6;
                            } catch (ClassCastException e7) {
                                throw new WrongType(e7, "string-ref", 2, i5);
                            }
                        } catch (ClassCastException e8) {
                            throw new WrongType(e8, "string-ref", 1, obj7);
                        }
                    }
                    return count3;
                } else {
                    return misc.error$V("CRITERION param is neither char-set or char.", new Object[]{srfi13.string$Mncount, this.criterion});
                }
            } catch (UnboundLocationException e9) {
                e9.setLine("/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm", 1246, 5);
                throw e9;
            }
        }
public Object lambda186 ( Object start , Object end ) { if ( characters . isChar ( this . criterion ) ) { Object count = srfi13 . Lit0 ; Object i = start ; while ( Scheme . numGEq . apply2 ( i , end ) == Boolean . FALSE ) { Object i2 = AddOp . $Pl . apply2 ( i , srfi13 . Lit1 ) ; Object obj = this . criterion ; try { Char charR = ( Char ) obj ; Object obj2 = this . f211s ; try { try { if ( characters . isChar$Eq ( charR , Char . make ( strings . stringRef ( ( CharSequence ) obj2 , ( ( Number ) i ) . intValue ( ) ) ) ) ) { count = AddOp . $Pl . apply2 ( count , srfi13 . Lit1 ) ; } i = i2 ; } catch ( ClassCastException e ) { throw new WrongType ( e , "string-ref" , 2 , i ) ; } } catch ( ClassCastException e2 ) { throw new WrongType ( e2 , "string-ref" , 1 , obj2 ) ; } } catch ( ClassCastException e3 ) { throw new WrongType ( e3 , "char=?" , 1 , obj ) ; } } return count ; } try { if ( Scheme . applyToArgs . apply2 ( srfi13 . loc$char$Mnset$Qu . get ( ) , this . criterion ) != Boolean . FALSE ) { Object count2 = srfi13 . Lit0 ; Object i3 = start ; while ( Scheme . numGEq . apply2 ( i3 , end ) == Boolean . FALSE ) { Object i4 = AddOp . $Pl . apply2 ( i3 , srfi13 . Lit1 ) ; ApplyToArgs applyToArgs = Scheme . applyToArgs ; try { Object obj3 = srfi13 . loc$char$Mnset$Mncontains$Qu . get ( ) ; Object obj4 = this . criterion ; Object obj5 = this . f211s ; try { try { if ( applyToArgs . apply3 ( obj3 , obj4 , Char . make ( strings . stringRef ( ( CharSequence ) obj5 , ( ( Number ) i3 ) . intValue ( ) ) ) ) != Boolean . FALSE ) { count2 = AddOp . $Pl . apply2 ( count2 , srfi13 . Lit1 ) ; } i3 = i4 ; } catch ( ClassCastException e4 ) { throw new WrongType ( e4 , "string-ref" , 2 , i3 ) ; } } catch ( ClassCastException e5 ) { throw new WrongType ( e5 , "string-ref" , 1 , obj5 ) ; } } catch ( UnboundLocationException e6 ) { e6 . setLine ( "/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm" , 1248 , 16 ) ; throw e6 ; } } return count2 ; } else if ( misc . isProcedure ( this . criterion ) ) { Object count3 = srfi13 . Lit0 ; Object i5 = start ; while ( Scheme . numGEq . apply2 ( i5 , end ) == Boolean . FALSE ) { Object i6 = AddOp . $Pl . apply2 ( i5 , srfi13 . Lit1 ) ; ApplyToArgs applyToArgs2 = Scheme . applyToArgs ; Object obj6 = this . criterion ; Object obj7 = this . f211s ; try { try { if ( applyToArgs2 . apply2 ( obj6 , Char . make ( strings . stringRef ( ( CharSequence ) obj7 , ( ( Number ) i5 ) . intValue ( ) ) ) ) != Boolean . FALSE ) { count3 = AddOp . $Pl . apply2 ( count3 , srfi13 . Lit1 ) ; } i5 = i6 ; } catch ( ClassCastException e7 ) { throw new WrongType ( e7 , "string-ref" , 2 , i5 ) ; } } catch ( ClassCastException e8 ) { throw new WrongType ( e8 , "string-ref" , 1 , obj7 ) ; } } return count3 ; } else { return misc . error$V ( "CRITERION param is neither char-set or char." , new Object [ ] { srfi13 . string$Mncount , this . criterion } ) ; } } catch ( UnboundLocationException e9 ) { e9 . setLine ( "/u2/home/jis/ai2-kawa/gnu/kawa/slib/srfi13.scm" , 1246 , 5 ) ; throw e9 ; } }
access modifiers changed from: 0000
access modifiers changed from : 0000