04/15: guix home: import: Don’t use 'slurp-file-gexp'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit e12e8aad35e734fe2c4a0a54e9c6bc91eedf921d
Author: Xinglu Chen <public@yoctocell.xyz>
AuthorDate: Sat Oct 30 12:42:35 2021 +0200

    guix home: import: Don’t use 'slurp-file-gexp'.
    
    ‘slurp-file-gexp’ is not a bound procedure.
    
    * guix/scripts/home/import.scm (generate-bash-configuration+modules): Don’t
      use ‘slurp-file-gexp’.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/scripts/home/import.scm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/guix/scripts/home/import.scm b/guix/scripts/home/import.scm
index f20088a..0e7c454 100644
--- a/guix/scripts/home/import.scm
+++ b/guix/scripts/home/import.scm
@@ -47,24 +47,19 @@
                (home-bash-configuration
                 ,@(if (file-exists? rc)
                       `((bashrc
-                         (list (slurp-file-gexp
-                                (local-file ,rc)))))
+                         (list (local-file ,rc))))
                       '())
                 ,@(if (file-exists? profile)
                       `((bash-profile
-                         (list (slurp-file-gexp
-                                (local-file ,profile)))))
+                         (list (local-file ,profile))))
                       '())
                 ,@(if (file-exists? logout)
                       `((bash-logout
-                         (list (slurp-file-gexp
-                                (local-file ,logout)))))
+                         (list (local-file ,logout))))
                       '())))
       (guix gexp)
       (gnu home services shells))))
 
-
-
 (define %files+configurations-alist
   `((".bashrc" . ,generate-bash-configuration+modules)
     (".bash_profile" . ,generate-bash-configuration+modules)