PutChar1
Implements ISO's put_char/1: writes the one-character atom argument to the current output stream (see IOPrimitiveUtils.currentOutputChannel).
Throws
if the argument is unbound.
(character) if it is bound but not a one-character atom.
Fails, rather than erroring, if the channel is closed.