Merge branch 'master' into core-updates

[jackhill/guix/guix.git] / gnu / bootloader.scm

diff --git a/gnu/bootloader.scm b/gnu/bootloader.scm
index 122e350..4f2c71c 100644 (file)
--- a/gnu/bootloader.scm
+++ b/gnu/bootloader.scm
@@ -132,9 +132,9 @@
   (or (%bootloader-configuration-target config)
       (let ((device (bootloader-configuration-device config)))
         (when device
-          (issue-deprecation-warning
-           "The 'device' field of bootloader configurations is deprecated."
-           "Use 'target' instead."))
+          (warning
+           (G_ "The 'device' field of bootloader configurations is deprecated.~%"))
+          (warning (G_ "Use 'target' instead.~%")))
         device)))
 
 \f
@@ -146,7 +146,8 @@
   "Return the list of bootloader modules."
   (all-modules (map (lambda (entry)
                       `(,entry . "gnu/bootloader"))
-                    %load-path)))
+                    %load-path)
+               #:warn warn-about-load-error))
 
 (define %bootloaders
   ;; The list of publically-known bootloaders.