From abbf5430dc8144b664081f355eeb5c6b03306fe1 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 26 May 2008 09:16:24 +0000
Subject: [PATCH] keep current_stream across top-level.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2249 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/boot.yap | 4 ++--
 pl/yio.yap  | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/pl/boot.yap b/pl/boot.yap
index c31c1cea4..ce6e1e0cf 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -27,7 +27,6 @@ true :- true.
 
 '$do_live' :-
 	repeat,
-		'$set_input'(user_input),'$set_output'(user),
 		'$current_module'(Module),
 		( Module==user ->
 		    '$compile_mode'(_,0)
@@ -96,7 +95,8 @@ true :- true.
 	),
 	'$db_clean_queues'(0),
 	'$startup_reconsult',
-	'$startup_goals'.
+	'$startup_goals',
+	'$set_input'(user_input),'$set_output'(user).
 
 '$init_consult' :-
 	nb_setval('$lf_verbose',informational),
diff --git a/pl/yio.yap b/pl/yio.yap
index 91a966d43..15758a758 100644
--- a/pl/yio.yap
+++ b/pl/yio.yap
@@ -383,7 +383,7 @@ tell(F) :- var(F), !,
 	'$do_error'(instantiation_error,tell(F)).
 tell(F) :- current_output(Stream),
 	'$user_file_name'(Stream,F), !.
-tell(F) :- current_stream(_,write,Stream), '$user_file_name'(Stream, F), !,
+tell(F) :- current_stream(_,write,Stream), '$user_file_name'(Stream, F),  !,
 	set_output(Stream).
 tell(Stream) :- '$stream'(Stream), current_stream(_,write,Stream), !,
 	set_output(Stream).