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

avoid read-only flags.

This commit is contained in:
Vitor Santos Costa 2012-04-19 01:00:29 -05:00
parent 81be229e22
commit 49b936db67
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pl/qly.yap
View File

@ -30,7 +30,12 @@ qsave_program(File) :-
'$x_yap_flag'(language, V).
'$x_yap_flag'(X, V) :-
yap_flag(X, V),
X \= language.
X \= language,
X \= timezone,
X \= user_input,
X \= user_output,
X \= user_error,
X \= version.
'$init_state' :-
recorded('$program_state', _, _), !,