From 8502f83312580ebb56e82a1235a50f46fd1e4f06 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marekpasnikowski@protonmail.com>
Date: Fri, 3 Feb 2023 19:13:55 +0100
Subject: Rewrite to-package+output

---
 aisaka.org               | 5 ++---
 home-configuration.scm   | 5 ++---
 system-configuration.scm | 5 ++---
 3 files changed, 6 insertions(+), 9 deletions(-)

diff --git a/aisaka.org b/aisaka.org
index ff37e6e..21e8b3b 100644
--- a/aisaka.org
+++ b/aisaka.org
@@ -348,7 +348,6 @@ memory without overprovisioning, as well as to prolog the lifetime of SSD.
 ** TODO String to Package
 
 #+begin_src scheme :noweb-ref to-package+output
-  (compose ; &rest
-   list
-   specification->package+output)
+  (compose list
+           specification->package+output)
 #+end_src
diff --git a/home-configuration.scm b/home-configuration.scm
index a378364..c30a7c9 100644
--- a/home-configuration.scm
+++ b/home-configuration.scm
@@ -73,9 +73,8 @@
 (home-environment
  (packages
   (map
-   (compose ; &rest
-    list
-    specification->package+output)
+   (compose list
+            specification->package+output)
    '("adwaita-icon-theme"
      "alacritty"
      "clamav"
diff --git a/system-configuration.scm b/system-configuration.scm
index 28d4dbc..eb0d170 100644
--- a/system-configuration.scm
+++ b/system-configuration.scm
@@ -33,9 +33,8 @@
  (packages
   (append
    (map
-    (compose ; &rest
-     list
-     specification->package+output)
+    (compose list
+             specification->package+output)
     '("netcat-openbsd"
       "nss-certs"
       "ntfs-3g"
-- 
cgit v1.2.3