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

respect source mode indications.

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-03 08:50:15 +01:00
parent dddc9fbb85
commit 510c7cdeee
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/consult.yap
View File

@ -212,7 +212,9 @@ load_files(Files,Opts) :-
'$nb_getval'('$qcompile', Current, Current = never).
'$lf_option'(silent, 8, _).
'$lf_option'(skip_unix_header, 9, false).
'$lf_option'(compilation_mode, 10, source).
'$lf_option'(compilation_mode, 10, compact) :-
'$access_yap_flags'(11,YF),
( YF == 0 -> F = compact ; F = source ).
'$lf_option'(consult, 11, reconsult).
'$lf_option'(stream, 12, _).
'$lf_option'(register, 13, true).

1
pl/lists.yap
View File

@ -74,4 +74,5 @@ lists:delete([Head|List], Elem, Residue) :-
lists:delete([Head|List], Elem, [Head|Residue]) :-
lists:delete(List, Elem, Residue).
:- '$set_yap_flags'(11,0). % disable source.