Function Peekc

Part of:

package elprep
( peekc < scanner > )
Peek current character in scanner if possible, or return #EOT.