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

handle unbound meta-calls 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@384 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-02-26 21:03:15 +00:00
parent c15ce56e12
commit f152092a09
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/debug.yap
View File

@ -731,13 +731,15 @@ debugging :-
'$handle_signals'(Signals),
G=[M|Goal],
'$execute'(M:Goal).
'$creep'([_|'$execute_in_mod'(G,ModNum)]) :- !,
'$creep'([M|V]) :- var(V), !,
throw(error(instantiation_error,M:call(M:V))).
'$creep'([M|'$execute_in_mod'(G,ModNum)]) :- !,
'$module_number'(Mod,ModNum),
'$creep'([Mod|G]).
'$creep'([M|'$execute_within'(G)]) :- !,
'$creep'([M|G]).
'$creep'([M|'$last_execute_within'(G)]) :- !,
'$creep'([M|G]).
'$creep'([M|G])).
'$creep'(G) :- '$direct_spy'(G).
'$trace'(P,'!'(_),Mod,L,NC) :- !,