@expose("peek-char", [default(values.W_InputPort, None),
                      default(values.W_Fixnum, values.W_Fixnum.ZERO)],
                    simple=False)
def peek_char(w_port, w_skip, env, cont):
    try:
        return do_peek(w_port, False, w_skip.value, env, cont)
    except __HOLE__:
        raise SchemeException("peek-char: string is not a well-formed UTF-8 encoding")
dataset/ETHPy150Open samth/pycket/pycket/prims/input_output.py/peek_char