summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-11-05 23:36:00 +0530
committerArun Isaac2021-11-05 23:36:00 +0530
commita638838a0871075dcd85908a0f12e5c046e377dd (patch)
treea97c9858aed12b29703f8753df311a7543c274de
parent95a2b8e9ebd5037ea0138773f0de537747723782 (diff)
downloadccwl-a638838a0871075dcd85908a0f12e5c046e377dd.tar.gz
ccwl-a638838a0871075dcd85908a0f12e5c046e377dd.tar.lz
ccwl-a638838a0871075dcd85908a0f12e5c046e377dd.zip
build-aux: Delete duplicates in dependencies.
* build-aux/find-dependencies.scm: Delete duplicates before printing out dependencies.
-rw-r--r--build-aux/find-dependencies.scm36
1 files changed, 20 insertions, 16 deletions
diff --git a/build-aux/find-dependencies.scm b/build-aux/find-dependencies.scm
index d40a389..cc81d01 100644
--- a/build-aux/find-dependencies.scm
+++ b/build-aux/find-dependencies.scm
@@ -66,26 +66,30 @@ dependency is of the form (tag . file). tag may either be the symbol
(let ((dependencies
(find-dependencies (skribilo-document "doc/ccwl.skb"))))
(format #t "DOC_IMAGES = ~a~%"
- (string-join (filter-map (match-lambda
- (('image . file) file)
- (_ #f))
- dependencies)
+ (string-join (delete-duplicates
+ (filter-map (match-lambda
+ (('image . file) file)
+ (_ #f))
+ dependencies))
" "))
(format #t "DOC_SCM = ~a~%"
- (string-join (filter-map (match-lambda
- (('scm . file) file)
- (_ #f))
- dependencies)
+ (string-join (delete-duplicates
+ (filter-map (match-lambda
+ (('scm . file) file)
+ (_ #f))
+ dependencies))
" "))
(format #t "DOC_OUT = ~a~%"
- (string-join (filter-map (match-lambda
- (('out . file) file)
- (_ #f))
- dependencies)
+ (string-join (delete-duplicates
+ (filter-map (match-lambda
+ (('out . file) file)
+ (_ #f))
+ dependencies))
" "))
(format #t "DOC_OTHER = ~a~%"
- (string-join (filter-map (match-lambda
- (('other . file) file)
- (_ #f))
- dependencies)
+ (string-join (delete-duplicates
+ (filter-map (match-lambda
+ (('other . file) file)
+ (_ #f))
+ dependencies))
" ")))