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

fix $$cut_by and $cut_by

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1739 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-12-27 01:48:18 +00:00
parent 78b52b925c
commit e79300c305
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/boot.yap
View File

@ -79,7 +79,7 @@ true :- true.
% encapsulate $cut_by because of co-routining. % encapsulate $cut_by because of co-routining.
% %
'$$cut_by'(X) :- '$cut_by'(X). '$cut_by'(X) :- '$$cut_by'(X).
% Start file for yap % Start file for yap
@ -738,7 +738,7 @@ not(G) :- \+ '$execute'(G).
'$call'(not(X), _CP, _G0, _M) :- !, '$call'(not(X), _CP, _G0, _M) :- !,
\+ '$execute'(M:X). \+ '$execute'(M:X).
'$call'(!, CP, _,_) :- !, '$call'(!, CP, _,_) :- !,
'$$cut_by'(CP). '$cut_by'(CP).
'$call'([A|B], _, _, M) :- !, '$call'([A|B], _, _, M) :- !,
'$csult'([A|B], M). '$csult'([A|B], M).
'$call'(G, CP, G0, CurMod) :- '$call'(G, CP, G0, CurMod) :-

2
pl/debug.yap
View File

@ -390,7 +390,7 @@ debugging :-
( (
Det == true Det == true
-> ->
'$$cut_by'(CP) '$cut_by'(CP)
; ;
true true
), ),