diff options
| author | Arun Isaac | 2021-11-05 23:36:00 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-11-05 23:36:00 +0530 |
| commit | a638838a0871075dcd85908a0f12e5c046e377dd (patch) | |
| tree | a97c9858aed12b29703f8753df311a7543c274de /build-aux | |
| parent | 95a2b8e9ebd5037ea0138773f0de537747723782 (diff) | |
| download | ccwl-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.
Diffstat (limited to 'build-aux')
| -rw-r--r-- | build-aux/find-dependencies.scm | 36 |
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)) " "))) |