default mode for syntax error should be error, not just fail.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@515 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-06-04 21:14:39 +00:00
parent 358714433c
commit 26c23422e9
3 changed files with 4 additions and 5 deletions

View File

@ -170,7 +170,7 @@ STATIC_PROTO (Int GetArgSizeFromChar, (Term *));
static int parser_error_style = FAIL_ON_PARSER_ERROR;
static int parser_error_style = EXCEPTION_ON_PARSER_ERROR;
#if EMACS
static int first_char;
@ -2900,7 +2900,7 @@ p_read (void)
Error(SYNTAX_ERROR,syntax_error(tokstart),ErrorMessage);
return(FALSE);
} else if (parser_error_style == FAIL_ON_PARSER_ERROR) {
return (FALSE);
return(FALSE);
} else {
Error(SYNTAX_ERROR,syntax_error(tokstart),"SYNTAX ERROR");
return(FALSE);

View File

@ -16,14 +16,13 @@
<h2>Yap-4.3.22:</h2>
<ul>
<li>FIXED: default syntax error mode should be error.</li>
<li>NEW: atom garbage collector.</li>
<li>FIXED: recover space for logical update semantics.</li>
<li>FIXED: smash references to deleted entries with logical
update semantics.</li>
<li>FIXED: make instance of deleted fail for logical
update semantics.</li>
<li>FIXED: smash references to deleted references for logical
update semantics.</li>
<li>FIXED: garbage_collect should call do_gc with P, not CP.</li>
<li>FIXED: use YAPSHAREDIR as in manual (Ashwin Srinivasan).</li>
<li>FIXED: warning message about unify_extension.</li>

View File

@ -79,7 +79,7 @@ read_sig.
(
'$get_value'('$break',0)
->
'$set_read_error_handler'(fail),
'$set_read_error_handler'(error),
% after an abort, make sure all spy points are gone.
'$clean_debugging_info',
% simple trick to find out if this is we are booting from Prolog.