From 42b1f00ce802745fbdc3b9bc5be38ccd47c0af33 Mon Sep 17 00:00:00 2001 From: Chris Marusich Date: Sat, 16 Jul 2016 15:53:22 -0700 Subject: [PATCH 3/9] Rename previous-grub-entries to grub-entries This procedure actually returns an entry for every generation of the profile, so its name is confusing if it suggests that it only returns "previous" entries. --- guix/scripts/system.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 953c624..25a7743 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -370,7 +370,7 @@ it atomically, and then run OS's activation script." (date->string (time-utc->date time) "~Y-~m-~d ~H:~M"))) -(define* (previous-grub-entries #:optional (profile %system-profile)) +(define* (grub-entries #:optional (profile %system-profile)) "Return a list of 'menu-entry' for the generations of PROFILE." (define (system->grub-entry system number time) (unless-file-not-found @@ -564,7 +564,7 @@ building anything." (operating-system-grub.cfg os (if (eq? 'init action) '() - (previous-grub-entries))))) + (grub-entries))))) ;; For 'init' and 'reconfigure', always build GRUB.CFG, even if ;; --no-grub is passed, because GRUB.CFG because we then use it as a GC -- 2.9.2