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

if/3

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@15 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-04-24 16:40:11 +00:00
parent 98283101bb
commit 5bd09d8408
5 changed files with 71 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
pl/utils.yap
View File

@@ -17,6 +17,15 @@
once(G) :- '$execute'(G), !.
if(X,Y,Z) :-
CP is '$last_choice_pt',
'$execute'(X),
'$clean_ifcp'(CP),
'$execute'(Y).
if(X,Y,Z) :-
'$execute'(Z).
call_with_args(V) :- var(V), !,
throw(error(instantiation_error,call_with_args(V))).
call_with_args(M:A) :- !,