Function s7_peek_char 

pub unsafe extern "C" fn s7_peek_char(
    sc: *mut s7_scheme,
    port: s7_pointer,
) -> s7_pointer