aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtes2007-07-04 20:35:54 +0000
committerLudovic Courtes2007-07-04 20:35:54 +0000
commit713d47ba73cdaf12426ac0ed4fadf7647e065dca (patch)
treea2bf7e906d7bef406c668c5a021910a6ab4a0b85 /src
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
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/Makefile.am2
-rw-r--r--src/guile/skribilo/sui.scm4
2 files changed, 3 insertions, 3 deletions
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))