fix debugging sgs and repeated code.

This commit is contained in:
Vitor Santos Costa 2016-05-10 09:39:17 +01:00
parent 2eab5ef225
commit f94bec3cfc

View File

@ -415,29 +415,18 @@ true :- true.
% simple trick to find out if this is we are booting from Prolog.
% boot from a saved state
(
current_prolog_flag(saved_program, False),
writeln(False),
current_prolog_flag(saved_program, false)
->
current_prolog_flag(resource_database, RootPath),
writeln(RootPath),
file_directory_name( RootPath, Dir ),
atom_concat( Dir, '/init.yap' , Init),
bootstrap(Init),
module( user ),
'$make_saved_state',
get_value('$consult_on_boot',X),
(
X \= []
->
qsave_program( 'startup.yss'),
halt
;
true
)
'$make_saved_state'
;
'$init_state'
true
),
'$init_state',
'$db_clean_queues'(0),
% this must be executed from C-code.
% '$startup_saved_state',