summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtes2007-07-04 20:35:54 +0000
committerLudovic Courtes2007-07-04 20:35:54 +0000
commit713d47ba73cdaf12426ac0ed4fadf7647e065dca (patch)
treea2bf7e906d7bef406c668c5a021910a6ab4a0b85
parent2ae08bbb4f7906cb61648ab577bb77acfb6523a9 (diff)
downloadskribilo-713d47ba73cdaf12426ac0ed4fadf7647e065dca.tar.gz
skribilo-713d47ba73cdaf12426ac0ed4fadf7647e065dca.tar.lz
skribilo-713d47ba73cdaf12426ac0ed4fadf7647e065dca.zip
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
-rw-r--r--ChangeLog20
-rw-r--r--src/guile/skribilo/Makefile.am2
-rw-r--r--src/guile/skribilo/sui.scm4
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))