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:
parent
358714433c
commit
26c23422e9
@ -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);
|
||||
|
@ -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>
|
||||
|
@ -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.
|
||||
|
Reference in New Issue
Block a user