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 --- src/guile/skribilo/Makefile.am | 2 +- src/guile/skribilo/sui.scm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src/guile') 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 +;;; Copyright 2005, 2006, 2007 Ludovic Courtès ;;; ;;; ;;; 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