keep current_stream across top-level.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2249 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
0c006711ba
commit
abbf5430dc
@ -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),
|
||||||
|
Reference in New Issue
Block a user