comment out unfinished code
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1749 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
bc43ba2424
commit
10a791842b
@ -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) :-
|
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)).
|
'$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),
|
catch('$call_cleanup'(Goal,Catcher,Cleanup),
|
||||||
Exception,
|
Exception,
|
||||||
'$cleanup_exception'(Exception,Catcher,Cleanup)).
|
'$cleanup_exception'(Exception,Catcher,Cleanup)).
|
||||||
@ -186,7 +187,7 @@ call_cleanup(Goal, Catcher, Cleanup) :-
|
|||||||
).
|
).
|
||||||
'$call_cleanup'(Goal,fail,Cleanup) :-
|
'$call_cleanup'(Goal,fail,Cleanup) :-
|
||||||
call(Cleanup).
|
call(Cleanup).
|
||||||
|
*/
|
||||||
|
|
||||||
op(P,T,V) :- var(P), !,
|
op(P,T,V) :- var(P), !,
|
||||||
'$do_error'(instantiation_error,op(P,T,V)).
|
'$do_error'(instantiation_error,op(P,T,V)).
|
||||||
|
Reference in New Issue
Block a user