From 713d47ba73cdaf12426ac0ed4fadf7647e065dca Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Wed, 4 Jul 2007 20:35:54 +0000
Subject: Fixed the `sui' module.

* src/guile/skribilo/Makefile.am (dist_guilemodule_DATA): Added
  `sui.scm'.

* src/guile/skribilo/sui.scm (sui-filter): Removed single-operand `and'.

git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-135
---
 ChangeLog                      | 20 ++++++++++++++++++++
 src/guile/skribilo/Makefile.am |  2 +-
 src/guile/skribilo/sui.scm     |  4 ++--
 3 files changed, 23 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9611b36..6d25010 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,26 @@
 # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
 #
 
+2007-07-04 20:35:54 GMT	Ludovic Courtes <ludovic.courtes@laas.fr>	patch-135
+
+    Summary:
+      Fixed the `sui' module.
+    Revision:
+      skribilo--devo--1.2--patch-135
+
+    * src/guile/skribilo/Makefile.am (dist_guilemodule_DATA): Added
+      `sui.scm'.
+    
+    * src/guile/skribilo/sui.scm (sui-filter): Removed single-operand `and'.
+
+    modified files:
+     ChangeLog src/guile/skribilo/Makefile.am
+     src/guile/skribilo/sui.scm
+
+    new patches:
+     lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-119
+
+
 2007-07-04 20:35:23 GMT	Ludovic Courtes <ludovic.courtes@laas.fr>	patch-134
 
     Summary:
diff --git a/src/guile/skribilo/Makefile.am b/src/guile/skribilo/Makefile.am
index 01e9153..029d4f2 100644
--- a/src/guile/skribilo/Makefile.am
+++ b/src/guile/skribilo/Makefile.am
@@ -6,7 +6,7 @@ dist_guilemodule_DATA = biblio.scm color.scm config.scm		\
 		        reader.scm resolve.scm			\
 			source.scm parameters.scm verify.scm	\
 			writer.scm ast.scm location.scm		\
-			condition.scm
+			condition.scm sui.scm
 
 SUBDIRS = utils reader engine package source biblio
 
diff --git a/src/guile/skribilo/sui.scm b/src/guile/skribilo/sui.scm
index e0a9b19..89dbb91 100644
--- a/src/guile/skribilo/sui.scm
+++ b/src/guile/skribilo/sui.scm
@@ -1,7 +1,7 @@
 ;;; sui.scm
 ;;;
 ;;; Copyright 2003, 2004  Manuel Serrano
-;;; Copyright 2005, 2006  Ludovic Courtès  <ludovic.courtes@laas.fr>
+;;; Copyright 2005, 2006, 2007  Ludovic Courtès  <ludovic.courtes@laas.fr>
 ;;;
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
@@ -190,7 +190,7 @@
        (let loop ((refs refs)
 		  (res '()))
 	  (if (pair? refs)
-	      (if (and (pred1 (car refs)))
+	      (if (pred1 (car refs))
 		  (loop (cdr refs)
 			(cons (filter pred2 (cdar refs)) res))
 		  (loop (cdr refs) res))
-- 
cgit v1.2.3