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

prevent failure in listing X

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-11-26 09:23:25 +00:00
parent 57ac65c83b
commit 095cd68cac
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/listing.yap
View File

@ -35,7 +35,7 @@ listing(V) :-
'$listing'(V,Mod,Stream) :- var(V), !, '$listing'(V,Mod,Stream) :- var(V), !,
'$current_predicate_no_modules'(Mod,_,Pred), '$current_predicate_no_modules'(Mod,_,Pred),
'$list_clauses'(Stream,Mod,Pred). ( '$list_clauses'(Stream,Mod,Pred) ; true ).
'$listing'(M:V,_,Stream) :- !, '$listing'(M:V,_,Stream) :- !,
'$listing'(V,M,Stream). '$listing'(V,M,Stream).
'$listing'([],_,_) :- !. '$listing'([],_,_) :- !.