fix listing/1 breakage.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@627 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-10-08 05:35:09 +00:00 · 2002-10-08 05:35:09 +00:00 · bfbc9c9dfc
commit bfbc9c9dfc
parent 98d9c42c42
1 changed files with 2 additions and 2 deletions
--- a/pl/listing.yap
+++ b/pl/listing.yap
@ -35,8 +35,8 @@ listing(V) :-
 '$listing'(V,Mod,Stream) :- var(V), !,
 	'$current_predicate_no_modules'(Mod,_,Pred),
        '$list_clauses'(Stream,Mod,Pred).
-'$listing'(M:V,_,_) :- !,
-	'$listing'(V,M).
+'$listing'(M:V,_,Stream) :- !,
+	'$listing'(V,M,Stream).
 '$listing'([],_,_) :- !.
 '$listing'([X|Rest], M, Stream) :-
        !,