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

fix debugging sgs and repeated code.

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-05-10 09:39:17 +01:00
parent 2eab5ef225
commit f94bec3cfc
1 changed files with 3 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pl/boot.yap
View File

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