PeekCode1
Implements ISO's peek_code/1: unifies the argument with the code of the next character of the current input stream (see IOPrimitiveUtils.currentInputChannel) without consuming it, as -1 at end of stream.
Throws
if the argument is bound but not an integer.
(character_code) if it is an integer outside the representable character-code range.
Fails, rather than erroring, if the channel is closed.