parser: remove some parser access functions.

* parser.c (lisp_parse_impl): Access pi->eof directly instead
of going through parser_eof. We are using pi->errors in the
same expression! This is the only place pi->eof is needed.
(read_file_common): Don't call parser_eof. Assume that if
error_val emerges, and errors is zero, it must be eof.
(read_eval_ret_last): Simplify: the code actually does nothing
specia for eof versus errors, so we just bail if error_var
emerges.
(get_parser): Function removed.
(parse_errors): This is the only caller of get_parser, which
now just calls gethash to fetch the parser.
(parser_eof): Function removed.
(parse_init): sys:get-parser, sys:parser-errors and
sys:parser-eof intrinsics removed. The C function
parser_errors still exists; it is used in a few places.

* parser.h (get_parser, parser_eof): Declarations removed.

* share/txr/stdlib/compiler.tl (compile-file-conditionally):
Use the new parse-errors function instead of the removed
sys:parser-errors. Since that works on the stream, we don't
have to call sys:get-parser. Because it returns nil if there
are no errors, we drop the > test.

1 files changed, 0 insertions, 2 deletions

diff --git a/parser.h b/parser.h
index 3c2e2292..a8a64b97 100644
--- a/parser.h
+++ b/parser.h
@@ -138,10 +138,8 @@ void parser_common_init(parser_t *);
 void parser_cleanup(parser_t *);
 val parser(val stream, val name, val lineno);
 parser_t *parser_get_impl(val self, val parser);
-val get_parser(val stream);
 val ensure_parser(val stream, val name);
 val parser_set_lineno(val self, val stream, val lineno);
 val parser_errors(val parser);
-val parser_eof(val parser);
 val parse_errors(val stream);
 void parse_init(void);