do not reset system on error

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@224 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-12-11 15:44:52 +00:00
parent 7b71395f63
commit dea18939f4
1 changed files with 0 additions and 18 deletions
--- a/pl/errors.yap
+++ b/pl/errors.yap
@@ -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) :-
 	'$LoopError'(E).