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

comment out unfinished code

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1749 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-12-29 10:27:03 +00:00
parent bc43ba2424
commit 10a791842b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/utils.yap
View File

@ -166,7 +166,8 @@ call_with_args(A,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) :- atom(A), !,
call_with_args(A,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) :-
'$do_error'(type_error(atom,A),call_with_args(A,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)).
call_cleanup(Goal, Catcher, Cleanup) :-
/*
call_cleanup(Goal, Catcher, Cleanup) :-
catch('$call_cleanup'(Goal,Catcher,Cleanup),
Exception,
'$cleanup_exception'(Exception,Catcher,Cleanup)).
@ -186,7 +187,7 @@ call_cleanup(Goal, Catcher, Cleanup) :-
).
'$call_cleanup'(Goal,fail,Cleanup) :-
call(Cleanup).
*/
op(P,T,V) :- var(P), !,
'$do_error'(instantiation_error,op(P,T,V)).