From a638838a0871075dcd85908a0f12e5c046e377dd Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 5 Nov 2021 23:36:00 +0530
Subject: build-aux: Delete duplicates in dependencies.

* build-aux/find-dependencies.scm: Delete duplicates before printing
out dependencies.
---
 build-aux/find-dependencies.scm | 36 ++++++++++++++++++++----------------
 1 file changed, 20 insertions(+), 16 deletions(-)

(limited to 'build-aux')

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))
                        " ")))
-- 
cgit v1.2.3