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

consult

Browse Source
This commit is contained in:
Vitor Santos Costa 2018-07-31 22:15:06 +01:00
parent 8e43a02789
commit cfaedf5db4
3 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/swig/android/streamer.cpp
View File

@ -77,15 +77,6 @@ static int64_t and_seek(int sno, int64_t where, int how) {
static void
and_flush(int sno) {
buff0 += '\0';
streamerInstance->display(buff0);
//
// Created by vsc on 11-07-2017.
//
}

3
pl/consult.yap
View File

@ -681,6 +681,9 @@ db_files(Fs) :-
'$csult'(Fs, M) :-
'$load_files'(M:Fs,[consult(consult)],[M:Fs]).
'$csult_in_mod'(M, -F ) :- $load_files'(M:F,[],[M:F])
'$csult_in_mod'(M, F ) :- $load_files'(M:F,[consult(consult)],[M:F])
'$extract_minus'([], []).
'$extract_minus'([-F|Fs], [F|MFs]) :-
'$extract_minus'(Fs, MFs).

12
pl/top.yap
View File

@ -699,11 +699,15 @@ write_query_answer( Bindings ) :-
'$call'(not(X), _CP, G0, M) :- !,
\+ ('$current_choice_point'(CP),
'$call'(X,CP,G0,M) ).
'$call'(!, CP, _,_) :- !,
'$call'(!, CP, CP,G0) :- !,
'$$cut_by'(CP).
'$call'([A|B], _, _, M) :- !,
'$csult'([A|B], M).
'$call'(G, _CP, _G0, CurMod) :-
'$call'([X|Y], _, _, M) :-
(Y == [] ->
consult(M:X)
;
'$csult'([X|Y] ,M)
),
$call'(G, _CP, _G0, CurMod) :-
% /*
% (
% '$is_metapredicate'(G,CurMod)