01/01: system: Rename kernel->grub-label to kernel->boot-label.

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit c2e9942b8fc8918c3e1d9612f99bea06be9ff81d
Author: Mathieu Othacehe <address@hidden>
Date:   Sun Apr 2 15:52:34 2017 +0200

    system: Rename kernel->grub-label to kernel->boot-label.
    
    * gnu/system.scm (kernel->grub-label): Rename to kernel->boot-label.
    (operating-system-grub.cfg): Adapt.
    (operating-system-parameters-file): Ditto.
    
    Signed-off-by: Danny Milosavljevic <address@hidden>
---
 gnu/system.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/system.scm b/gnu/system.scm
index 0f52351..e74763d 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -700,8 +700,8 @@ listed in OS.  The C library expects to find it under
   (locale-directory definitions
                     #:libcs (operating-system-locale-libcs os)))
 
-(define (kernel->grub-label kernel)
-  "Return a label for the GRUB menu entry that boots KERNEL."
+(define (kernel->boot-label kernel)
+  "Return a label for the bootloader menu entry that boots KERNEL."
   (string-append "GNU with "
                  (string-titlecase (package-name kernel)) " "
                  (package-version kernel)
@@ -735,7 +735,7 @@ listed in OS.  The C library expects to find it under
       ((system      (operating-system-derivation os))
        (root-fs ->  (operating-system-root-file-system os))
        (store-fs -> (operating-system-store-file-system os))
-       (label ->    (kernel->grub-label (operating-system-kernel os)))
+       (label ->    (kernel->boot-label (operating-system-kernel os)))
        (kernel ->   (operating-system-kernel-file os))
        (initrd      (operating-system-initrd-file os))
        (root-device -> (if (eq? 'uuid (file-system-title root-fs))
@@ -774,7 +774,7 @@ this file is the reconstruction of GRUB menu entries for 
old configurations."
   (mlet %store-monad ((initrd   (operating-system-initrd-file os))
                       (root ->  (operating-system-root-file-system os))
                       (store -> (operating-system-store-file-system os))
-                      (label -> (kernel->grub-label
+                      (label -> (kernel->boot-label
                                  (operating-system-kernel os))))
     (gexp->file "parameters"
                 #~(boot-parameters