Better EOF check in read-eval stream function.

This makes a difference if we read from a TTY.
Without this fix, two Ctrl-D's have to be issued
before the code registers EOF and returns.

The trick is that we know, after calling the
parser, whether it hit EOF, because we have
the recent token. If its value is zero, that's
the EOF token. We can bail out of the loop
instead of calling the parser again which will
require another EOF (because prime_parser
will not push an EOF token!)

* parser.h (parser_eof): Declared.

* parser.c (read_eval_stream): After lisp_parse
and eval, check for EOF with the parser_eof
function, and bail if so.
(parser_eof): New function.

1 files changed, 1 insertions, 0 deletions

diff --git a/parser.h b/parser.h
index efbaa351..95b9e4f7 100644
--- a/parser.h
+++ b/parser.h
@@ -104,4 +104,5 @@ void parser_cleanup(parser_t *);
 val parser(val stream, val lineno);
 val get_parser(val stream);
 val parser_errors(val parser);
+val parser_eof(val parser);
 void parse_init(void);