From 2639e6c8683e1c752d448832ea14d854e8293f3f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Wed, 19 May 2010 17:15:11 +0100
Subject: [PATCH] bad inline expansion of exclude (obs from Paolo Frasconi)

---
 library/maplist.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/maplist.yap b/library/maplist.yap
index a70f3e4c0..f0de33566 100644
--- a/library/maplist.yap
+++ b/library/maplist.yap
@@ -431,7 +431,7 @@ goal_expansion(exclude(Meta, ListIn, ListOut), Mod:Goal) :-
 	compile_aux([
 		     Base,
 		     (RecursionHead :-
-		         (Apply -> Outs = [In|NOuts]; Outs = NOuts),
+		         (Apply -> Outs = NOuts; Outs = [In|NOuts]),
 			 RecursiveCall)
 		    ], Mod).