From 9dca5ca03cb85726162837ec08c500d4fad32d61 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Wed, 21 Aug 2024 10:33:41 -0300
Subject: package.scm: Use (let ...) to simplify (etc-entries ...) function

---
 src/org/euandre/packages.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'src/org')

diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm
index c2f9749..3d8a616 100644
--- a/src/org/euandre/packages.scm
+++ b/src/org/euandre/packages.scm
@@ -423,11 +423,10 @@
                 (slurp #$(file-append package path))))))))
 
 (define (etc-entries package paths)
-  (map
-   tuple->entry
-   (map (lambda (path)
-          (list path package))
-        paths)))
+  (let ((tuples (map (lambda (path)
+                       (list path package))
+                     paths)))
+    (map tuple->entry tuples)))
 
 (define-public (package-set symbols records)
   (append
-- 
cgit v1.2.3