Source/sources/gnu/kawa/slib/ppfile.java
public Object lambda2(Object export) {
            Object c = readchar.peekChar.apply1(this.port);
            while (true) {
                boolean x = ports.isEofObject(c);
                if (!x) {
                    try {
                        if (unicode.isCharWhitespace((Char) c)) {
                            ports.display(readchar.readChar.apply1(this.port), export);
                            c = readchar.peekChar.apply1(this.port);
                        } else {
                            try {
                                if (characters.isChar$Eq(ppfile.Lit0, (Char) c)) {
                                    while (true) {
                                        boolean x2 = ports.isEofObject(c);
                                        if (x2) {
                                            return x2 ? Boolean.TRUE : Boolean.FALSE;
                                        }
                                        try {
                                            if (characters.isChar$Eq(ppfile.Lit1, (Char) c)) {
                                                ports.display(readchar.readChar.apply1(this.port), export);
                                                c = readchar.peekChar.apply1(this.port);
                                                break;
                                            }
                                            ports.display(readchar.readChar.apply1(this.port), export);
                                            c = readchar.peekChar.apply1(this.port);
                                        } catch (ClassCastException e) {
                                            throw new WrongType(e, "char=?", 2, c);
                                        }
                                    }
                                } else {
                                    Object obj = this.port;
                                    try {
                                        Object o = ports.read((InPort) obj);
                                        boolean x3 = ports.isEofObject(o);
                                        if (x3) {
                                            return x3 ? Boolean.TRUE : Boolean.FALSE;
                                        }
                                        C0609pp.prettyPrint(Scheme.applyToArgs.apply2(this.staticLink.filter, o), export);
                                        c = readchar.peekChar.apply1(this.port);
                                        if (Scheme.isEqv.apply2(ppfile.Lit1, c) != Boolean.FALSE) {
                                            readchar.readChar.apply1(this.port);
                                            c = readchar.peekChar.apply1(this.port);
                                        }
                                    } catch (ClassCastException e2) {
                                        throw new WrongType(e2, "read", 1, obj);
                                    }
                                }
                            } catch (ClassCastException e3) {
                                throw new WrongType(e3, "char=?", 2, c);
                            }
                        }
                    } catch (ClassCastException e4) {
                        throw new WrongType(e4, "char-whitespace?", 1, c);
                    }
                } else if (x) {
                    return Boolean.TRUE;
                } else {
                    return Boolean.FALSE;
                }
            }
        }
/* access modifiers changed from: 0000 */
access modifiers changed from: 0000
access modifiers changed from : 0000
public Object lambda2(Object export) {
            Object c = readchar.peekChar.apply1(this.port);
            while (true) {
                boolean x = ports.isEofObject(c);
                if (!x) {
                    try {
                        if (unicode.isCharWhitespace((Char) c)) {
                            ports.display(readchar.readChar.apply1(this.port), export);
                            c = readchar.peekChar.apply1(this.port);
                        } else {
                            try {
                                if (characters.isChar$Eq(ppfile.Lit0, (Char) c)) {
                                    while (true) {
                                        boolean x2 = ports.isEofObject(c);
                                        if (x2) {
                                            return x2 ? Boolean.TRUE : Boolean.FALSE;
                                        }
                                        try {
                                            if (characters.isChar$Eq(ppfile.Lit1, (Char) c)) {
                                                ports.display(readchar.readChar.apply1(this.port), export);
                                                c = readchar.peekChar.apply1(this.port);
                                                break;
                                            }
                                            ports.display(readchar.readChar.apply1(this.port), export);
                                            c = readchar.peekChar.apply1(this.port);
                                        } catch (ClassCastException e) {
                                            throw new WrongType(e, "char=?", 2, c);
                                        }
                                    }
                                } else {
                                    Object obj = this.port;
                                    try {
                                        Object o = ports.read((InPort) obj);
                                        boolean x3 = ports.isEofObject(o);
                                        if (x3) {
                                            return x3 ? Boolean.TRUE : Boolean.FALSE;
                                        }
                                        C0609pp.prettyPrint(Scheme.applyToArgs.apply2(this.staticLink.filter, o), export);
                                        c = readchar.peekChar.apply1(this.port);
                                        if (Scheme.isEqv.apply2(ppfile.Lit1, c) != Boolean.FALSE) {
                                            readchar.readChar.apply1(this.port);
                                            c = readchar.peekChar.apply1(this.port);
                                        }
                                    } catch (ClassCastException e2) {
                                        throw new WrongType(e2, "read", 1, obj);
                                    }
                                }
                            } catch (ClassCastException e3) {
                                throw new WrongType(e3, "char=?", 2, c);
                            }
                        }
                    } catch (ClassCastException e4) {
                        throw new WrongType(e4, "char-whitespace?", 1, c);
                    }
                } else if (x) {
                    return Boolean.TRUE;
                } else {
                    return Boolean.FALSE;
                }
            }
        }
public Object lambda2 ( Object export ) { Object c = readchar . peekChar . apply1 ( this . port ) ; while ( true ) { boolean x = ports . isEofObject ( c ) ; if ( ! x ) { try { if ( unicode . isCharWhitespace ( ( Char ) c ) ) { ports . display ( readchar . readChar . apply1 ( this . port ) , export ) ; c = readchar . peekChar . apply1 ( this . port ) ; } else { try { if ( characters . isChar$Eq ( ppfile . Lit0 , ( Char ) c ) ) { while ( true ) { boolean x2 = ports . isEofObject ( c ) ; if ( x2 ) { return x2 ? Boolean . TRUE : Boolean . FALSE ; } try { if ( characters . isChar$Eq ( ppfile . Lit1 , ( Char ) c ) ) { ports . display ( readchar . readChar . apply1 ( this . port ) , export ) ; c = readchar . peekChar . apply1 ( this . port ) ; break ; } ports . display ( readchar . readChar . apply1 ( this . port ) , export ) ; c = readchar . peekChar . apply1 ( this . port ) ; } catch ( ClassCastException e ) { throw new WrongType ( e , "char=?" , 2 , c ) ; } } } else { Object obj = this . port ; try { Object o = ports . read ( ( InPort ) obj ) ; boolean x3 = ports . isEofObject ( o ) ; if ( x3 ) { return x3 ? Boolean . TRUE : Boolean . FALSE ; } C0609pp . prettyPrint ( Scheme . applyToArgs . apply2 ( this . staticLink . filter , o ) , export ) ; c = readchar . peekChar . apply1 ( this . port ) ; if ( Scheme . isEqv . apply2 ( ppfile . Lit1 , c ) != Boolean . FALSE ) { readchar . readChar . apply1 ( this . port ) ; c = readchar . peekChar . apply1 ( this . port ) ; } } catch ( ClassCastException e2 ) { throw new WrongType ( e2 , "read" , 1 , obj ) ; } } } catch ( ClassCastException e3 ) { throw new WrongType ( e3 , "char=?" , 2 , c ) ; } } } catch ( ClassCastException e4 ) { throw new WrongType ( e4 , "char-whitespace?" , 1 , c ) ; } } else if ( x ) { return Boolean . TRUE ; } else { return Boolean . FALSE ; } } }
access modifiers changed from: 0000
access modifiers changed from : 0000