handling queries composed by a single negative literal
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2035 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
e58d6b7bb5
commit
212a27a564
@ -67,7 +67,6 @@ xnotrace :-
|
||||
).
|
||||
|
||||
/* isprolog(Call): Call is a Prolog subgoal */
|
||||
|
||||
isprolog(Call) :-
|
||||
builtin(Call).
|
||||
|
||||
@ -75,7 +74,6 @@ isprolog(Call) :-
|
||||
It returns all true answers of Call under the well-founded semantics
|
||||
one by one.
|
||||
*/
|
||||
|
||||
slg(Call,C,D):-
|
||||
slg(Call,[],C,[],D).
|
||||
|
||||
@ -110,7 +108,7 @@ s(GoalsList,Prob):-
|
||||
convert_to_goal(GoalsList,Goal),
|
||||
solve(Goal,Prob).
|
||||
|
||||
convert_to_goal([Goal],Goal):-!.
|
||||
convert_to_goal([Goal],Goal):-Goal \= (\+ _) ,!.
|
||||
|
||||
convert_to_goal(GoalsList,Head):-
|
||||
get_new_atom(Atom),
|
||||
|
Reference in New Issue
Block a user