peek_code/1¶

"peek_code( - C" ) is iso

If C is unbound, or is the code for a character, and the current input stream is a text stream, read the next character from the current stream and unify its code with C, while leaving the current stream position unaltered.