diff options
| author | Ludovic Courtes | 2007-07-04 20:35:54 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2007-07-04 20:35:54 +0000 |
| commit | 713d47ba73cdaf12426ac0ed4fadf7647e065dca (patch) | |
| tree | a2bf7e906d7bef406c668c5a021910a6ab4a0b85 /src | |
| parent | 2ae08bbb4f7906cb61648ab577bb77acfb6523a9 (diff) | |
| download | skribilo-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.am | 2 | ||||
| -rw-r--r-- | src/guile/skribilo/sui.scm | 4 |
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)) |