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

fix order at boot

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-12-06 20:15:05 +00:00
parent c085e68529
commit 1deb6d2663
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
pl/boot.yap
View File

@ -159,19 +159,6 @@ true :- true.
'$enter_top_level' :- '$enter_top_level' :-
'$clean_up_dead_clauses', '$clean_up_dead_clauses',
fail. fail.
% use if we come from a save_program and we have SWI's shlib
'$enter_top_level' :-
recorded('$reload_foreign_libraries',G,R),
erase(R),
shlib:reload_foreign_libraries,
fail.
% use if we come from a save_program and we have a goal to execute
'$enter_top_level' :-
recorded('$restore_goal',G,R),
erase(R),
prompt(_,' | '),
'$system_catch'('$do_yes_no'((G->true),user),user,Error,user:'$Error'(Error)),
fail.
'$enter_top_level' :- '$enter_top_level' :-
'$nb_getval'('$break',BreakLevel,fail), '$nb_getval'('$break',BreakLevel,fail),
'$debug_on'(DBON), '$debug_on'(DBON),
@ -201,6 +188,7 @@ true :- true.
'$read_vars'(user_input,Command,_,Pos,Varnames), '$read_vars'(user_input,Command,_,Pos,Varnames),
nb_setval('$spy_gn',1), nb_setval('$spy_gn',1),
% stop at spy-points if debugging is on. % stop at spy-points if debugging is on.
nb_setval('$debug_run',off), nb_setval('$debug_run',off),
nb_setval('$debug_jump',off), nb_setval('$debug_jump',off),
prompt(_,' |: '), prompt(_,' |: '),
@ -213,6 +201,19 @@ true :- true.
set_value('$extend_file_search_path',[]), set_value('$extend_file_search_path',[]),
'$extend_file_search_path'(P), '$extend_file_search_path'(P),
fail. fail.
% use if we come from a save_program and we have SWI's shlib
'$startup_goals' :-
recorded('$reload_foreign_libraries',G,R),
erase(R),
shlib:reload_foreign_libraries,
fail.
% use if we come from a save_program and we have a goal to execute
'$startup_goals' :-
recorded('$restore_goal',G,R),
erase(R),
prompt(_,' | '),
'$system_catch'('$do_yes_no'((G->true),user),user,Error,user:'$Error'(Error)),
fail.
'$startup_goals' :- '$startup_goals' :-
recorded('$startup_goal',G,_), recorded('$startup_goal',G,_),
'$current_module'(Module), '$current_module'(Module),