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

avoid backtracking

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-09-25 09:42:51 +01:00
parent 1783528ea8
commit 7f952c8b74
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/utils.yap
View File

@ -74,8 +74,8 @@ a postfix operator.
'$check_module_for_op'(V, G, NV), '$check_module_for_op'(V, G, NV),
'$check_top_op'(P, T, NV, G). '$check_top_op'(P, T, NV, G).
'$check_top_op'(_, _, [], _). '$check_top_op'(_, _, [], _) :- !.
'$check_top_op'(P, T, Op.NV, G) :- !, '$check_top_op'(P, T, [Op|NV], G) :- !,
'$check_ops'(P, T, Op.NV, G). '$check_ops'(P, T, Op.NV, G).
'$check_top_op'(P, T, V, G) :- '$check_top_op'(P, T, V, G) :-
atom(V), !, atom(V), !,