diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

do not reset system on error

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@224 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-12-11 15:44:52 +00:00
parent 7b71395f63
commit dea18939f4
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pl/errors.yap
View File

@ -15,24 +15,6 @@
* * * *
*************************************************************************/ *************************************************************************/
'$Error'(_) :-
current_stream(_,_,Stream),
'$close'(Stream),
fail.
'$Error'(_) :-
set_input(user_input),
set_output(user_output),
fail.
'$Error'(_) :-
'$set_read_error_handler'(fail),
fail.
'$Error'(_) :-
'$clean_debugging_info',
'$get_value'('$user_module',V),
( V=[] -> '$current_module'(_,prolog);
'$current_module'(_,V), '$compile_mode'(_,0)
),
fail.
'$Error'(E) :- '$Error'(E) :-
'$LoopError'(E). '$LoopError'(E).