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

fix some throws

Browse Source 
fix shell/1 and shell/2 in system library.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@539 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-06-17 06:27:00 +00:00
parent 9915a010cc
commit 804f7ecebc
3 changed files with 12 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
pl/debug.yap
View File

@@ -41,9 +41,9 @@
'$suspy'(A,S,M) :- atom(A), !,
'$suspy_predicates_by_name'(A,S,M).
'$suspy'(P,spy,M) :- !,
throw(error(domain_error(predicate_spec,P)),spy(M:P)).
throw(error(domain_error(predicate_spec,P),spy(M:P))).
'$suspy'(P,nospy,M) :-
throw(error(domain_error(predicate_spec,P)),nospy(M:P)).
throw(error(domain_error(predicate_spec,P),nospy(M:P))).
'$suspy_predicates_by_name'(A,S,M) :-
% just check one such predicate exists