From bfbc9c9dfc14041cb6b2238ad0396f255eb8d395 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 8 Oct 2002 05:35:09 +0000
Subject: [PATCH] fix listing/1 breakage.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@627 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/listing.yap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pl/listing.yap b/pl/listing.yap
index 36de4a8e7..d45ed1e16 100644
--- 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) :-
         !,