Construct the list of system services with append instead of cons*

1 files changed, 13 insertions, 12 deletions

diff --git a/aisaka.org b/aisaka.org
index 806e1a0..eabf7a7 100644
--- a/aisaka.org
+++ b/aisaka.org
@@ -75,18 +75,19 @@ https://guix.gnu.org/en/manual/en/html_node/Services.html
 
 #+begin_src scheme :noweb-ref system-services
   (services
-   (cons*
-    <<ssh-system-service>>
-    <<trezor-system-packages>>
-    (service cups-service-type
-             (cups-configuration (extensions `(,cups-filters
-                                               ,epson-inkjet-printer-escpr))
-                                 (web-interface? #t)))
-    (service git-daemon-service-type)
-    (service gnome-desktop-service-type)
-    (service tor-service-type (tor-configuration
-                               (control-socket? #t)))
-    <<trezor-udev-rules>>
+   (append
+    (list
+     <<ssh-system-service>>
+     <<trezor-system-packages>>
+     (service cups-service-type
+              (cups-configuration (extensions `(,cups-filters
+                                                ,epson-inkjet-printer-escpr))
+                                  (web-interface? #t)))
+     (service git-daemon-service-type)
+     (service gnome-desktop-service-type)
+     (service tor-service-type (tor-configuration
+                                (control-socket? #t)))
+     <<trezor-udev-rules>>)
     (modify-services %desktop-services
                      (elogind-service-type
                       configuration =>