03/03: guix system: Fix success report of the bootloader installation.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 8ffab257ddb6c5df1ac43b9baeb5f0373bffb482
Author: Ludovic Courtès <address@hidden>
Date:   Sun Mar 17 16:22:43 2019 +0100

    guix system: Fix success report of the bootloader installation.
    
    Fixes <https://bugs.gnu.org/34890>.
    Reported by Jack Hill <address@hidden>.
    
    Regression introduced in 21fcfe1ee969cc477dc41486ae4074e655d44274.
    
    * guix/scripts/system.scm (bootloader-installer-script): Ungexp DEVICE.
---
 guix/scripts/system.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index b4bf668..97508f4 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -818,7 +818,7 @@ and TARGET arguments."
                                 (exit 1)))
                        (#$installer #$bootloader #$device #$target)
                        (format #t "bootloader successfully installed on '~a'~%"
-                               device))))))
+                               #$device))))))
 
 (define* (perform-action action os
                          #:key skip-safety-checks?