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

fix listing/1 breakage.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@627 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-10-08 05:35:09 +00:00
parent 98d9c42c42
commit bfbc9c9dfc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/listing.yap
View File

@ -35,8 +35,8 @@ 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).
'$listing'(M:V,_,_) :- !, '$listing'(M:V,_,Stream) :- !,
'$listing'(V,M). '$listing'(V,M,Stream).
'$listing'([],_,_) :- !. '$listing'([],_,_) :- !.
'$listing'([X|Rest], M, Stream) :- '$listing'([X|Rest], M, Stream) :-
!, !,