This function reads one character from the input port given, or from the current input port if no argument is given. It return the character read as an RScheme ascii character object. If there are no more characters to read from the port then the EOF object is returned (the only one for which eof-object? return #t).