protect should be called before user goals.
This commit is contained in:
parent
9860b6244f
commit
afa085de28
@ -287,9 +287,6 @@ qend_program :-
|
|||||||
'$init_from_saved_state_and_args' :-
|
'$init_from_saved_state_and_args' :-
|
||||||
'$init_path_extensions',
|
'$init_path_extensions',
|
||||||
fail.
|
fail.
|
||||||
'$init_from_saved_state_and_args' :-
|
|
||||||
'$protect',
|
|
||||||
fail.
|
|
||||||
% use if we come from a save_program and we have SWI's shlib
|
% use if we come from a save_program and we have SWI's shlib
|
||||||
'$init_from_saved_state_and_args' :-
|
'$init_from_saved_state_and_args' :-
|
||||||
current_prolog_flag(hwnd, _HWND),
|
current_prolog_flag(hwnd, _HWND),
|
||||||
@ -385,9 +382,6 @@ qend_program :-
|
|||||||
call(db_open(mysql,myddas,Host/Db,User,Pass)),
|
call(db_open(mysql,myddas,Host/Db,User,Pass)),
|
||||||
'$myddas_import_all',
|
'$myddas_import_all',
|
||||||
fail.
|
fail.
|
||||||
'$startup_goals' :-
|
|
||||||
'$protect',
|
|
||||||
fail.
|
|
||||||
'$startup_goals'.
|
'$startup_goals'.
|
||||||
|
|
||||||
%
|
%
|
||||||
|
Reference in New Issue
Block a user