diff options
| author | Chris Marusich <cmmarusich@gmail.com> | 2016-11-01 22:48:12 -0700 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-11-06 18:08:53 +0100 |
| commit | 45e39eee21f958a6a1445bef46a39cbe4b298cd2 (patch) | |
| tree | 085e092ee48baee5d0f5346597172bb3708e93f0 | |
| parent | 9008debc54aaa4d65444d5cef85df83455d48d7b (diff) | |
| download | guix-45e39eee21f958a6a1445bef46a39cbe4b298cd2.tar guix-45e39eee21f958a6a1445bef46a39cbe4b298cd2.tar.gz | |
system: Rename previous-grub-entries to profile-grub-entries.
* guix/scripts/system.scm (previous-grub-entries, profile-grub-entries):
Rename previous-grub-entries to profile-grub-entries to indicate that it is
stateful and returns the entries for all profile generations, not just the
previous ones. Update all callers.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | guix/scripts/system.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index e548be649d..eee4422d68 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -366,7 +366,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* (profile-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 @@ -563,7 +563,7 @@ building anything." (operating-system-grub.cfg os (if (eq? 'init action) '() - (previous-grub-entries))))) + (profile-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 |