From 3111cddeb2dcc7bbdd49e809e759aa4ab28c671e Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Sun, 21 Sep 2014 14:24:09 +0400 Subject: [PATCH 1/2] profiles: Add 'profile-generations'. * guix/profiles.scm (profile-generations): New procedure. --- guix/profiles.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/guix/profiles.scm b/guix/profiles.scm index aa88b84..18733a6 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -70,6 +70,7 @@ profile-derivation generation-number generation-numbers + profile-generations previous-generation-number generation-time generation-file-name)) @@ -561,6 +562,13 @@ former profiles were found." profiles) <)))) +(define (profile-generations profile) + "Return a list of PROFILE's generations." + (let ((generations (generation-numbers profile))) + (if (equal? generations '(0)) + '() + generations))) + (define (previous-generation-number profile number) "Return the number of the generation before generation NUMBER of PROFILE, or 0 if none exists. It could be NUMBER - 1, but it's not the -- 2.1.0