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

keep current_stream across top-level.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2249 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-05-26 09:16:24 +00:00
parent 0c006711ba
commit abbf5430dc
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/boot.yap
View File

@ -27,7 +27,6 @@ true :- true.
'$do_live' :- '$do_live' :-
repeat, repeat,
'$set_input'(user_input),'$set_output'(user),
'$current_module'(Module), '$current_module'(Module),
( Module==user -> ( Module==user ->
'$compile_mode'(_,0) '$compile_mode'(_,0)
@ -96,7 +95,8 @@ true :- true.
), ),
'$db_clean_queues'(0), '$db_clean_queues'(0),
'$startup_reconsult', '$startup_reconsult',
'$startup_goals'. '$startup_goals',
'$set_input'(user_input),'$set_output'(user).
'$init_consult' :- '$init_consult' :-
nb_setval('$lf_verbose',informational), nb_setval('$lf_verbose',informational),

2
pl/yio.yap
View File

@ -383,7 +383,7 @@ tell(F) :- var(F), !,
'$do_error'(instantiation_error,tell(F)). '$do_error'(instantiation_error,tell(F)).
tell(F) :- current_output(Stream), tell(F) :- current_output(Stream),
'$user_file_name'(Stream,F), !. '$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). set_output(Stream).
tell(Stream) :- '$stream'(Stream), current_stream(_,write,Stream), !, tell(Stream) :- '$stream'(Stream), current_stream(_,write,Stream), !,
set_output(Stream). set_output(Stream).