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

add qend_program to bootstrap

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-12-14 11:45:11 +00:00
parent 4ed4e776e6
commit 80363e359e
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/qly.yap
View File

@ -119,6 +119,16 @@ save_program(_File, Goal) :-
save_program(File, _Goal) :- save_program(File, _Goal) :-
qsave_program(File). qsave_program(File).
/** @pred qsave_program
Saves an image of the current state of the YAP database in default
filee, usually `startup.yss`.
**/
qend_program :-
module(user),
qsave_program('startup.yss'),
halt(0).
'$save_program_status'(Flags, G) :- '$save_program_status'(Flags, G) :-
findall(F:V,'$x_yap_flag'(F,V),L), findall(F:V,'$x_yap_flag'(F,V),L),
recordz('$program_state',L,_), recordz('$program_state',L,_),