summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2023-01-27 00:57:26 +0000
committerArun Isaac2023-01-27 00:59:41 +0000
commit29ae032d9311a7d33e281052bef77518d0251631 (patch)
treee42ac636f9e63727f4fa7a2bfe7a5b41b76289a0
parentabaeb6881438832ccf391de70b6aa2b5d9634a4e (diff)
downloadtissue-29ae032d9311a7d33e281052bef77518d0251631.tar.gz
tissue-29ae032d9311a7d33e281052bef77518d0251631.tar.lz
tissue-29ae032d9311a7d33e281052bef77518d0251631.zip
tissue.scm: Replace filter-map with map.
No elements are being filtered. filter-map is unnecessary.

* tissue.scm (#:web-files): Replace filter-map with map.
-rw-r--r--tissue.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/tissue.scm b/tissue.scm
index f697491..c2e7f37 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -46,7 +46,7 @@
                                        "IBMPlexSans-Bold-Latin1.woff2"
                                        "IBMPlexMono-Regular-Latin1.woff2"
                                        "IBMPlexMono-Bold-Latin1.woff2"))
-                            (filter-map (lambda (filename)
-                                          (file (replace-extension filename "html")
-                                                (gemtext-exporter filename #:engine %engine)))
-                                        (gemtext-files-in-directory "issues")))))
+                            (map (lambda (filename)
+                                   (file (replace-extension filename "html")
+                                         (gemtext-exporter filename #:engine %engine)))
+                                 (gemtext-files-in-directory "issues")))))