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

reflection patches

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-11-26 10:53:04 +01:00
parent 3edb01f5f7
commit 8b7fa9be36
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/consult.yap
View File

@ -756,7 +756,7 @@ remove_from_path(New) :- '$check_path'(New,Path),
( Reconsult \== consult, Reconsult \== not_loaded, Reconsult \== changed, recorded('$lf_loaded','$lf_loaded'(F, _),R), erase(R), fail ; var(Reconsult) -> Reconsult = consult ; true ),
( Reconsult \== consult, recorded('$lf_loaded','$lf_loaded'(F, _, _, _, _, _, _),R), erase(R), fail ; var(Reconsult) -> Reconsult = consult ; true ),
( F == user_input -> Age = 0 ; time_file64(F, Age) ),
recorda('$lf_loaded','$lf_loaded'( F, Age), _),
( recordaifnot('$lf_loaded','$lf_loaded'( F, Age), _) -> true ; true ),
recorda('$lf_loaded','$lf_loaded'( F, M, Reconsult, UserFile, OldF, Line, Opts), _).
'$set_encoding'(Encoding) :-

4
pl/lists.yap
View File

@ -1,5 +1,5 @@
:- source.
:- '$set_yap_flags'(11,1). % source.
% memberchk(+Element, +Set)
% means the same thing, but may only be used to test whether a known
@ -24,5 +24,5 @@ lists:append([H|T], L, [H|R]) :-
lists:append(T, L, R).
:- no_source.
:- '$set_yap_flags'(11,0). % :- no_source.