From f452e8ff10a5ae0e9592a1f7731d198d204c8f69 Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Sun, 21 Sep 2014 14:24:09 +0400
Subject: [PATCH] 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 aa88b849e1..18733a6664 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -70,6 +70,7 @@ (define-module (guix profiles)
             profile-derivation
             generation-number
             generation-numbers
+            profile-generations
             previous-generation-number
             generation-time
             generation-file-name))
@@ -561,6 +562,13 @@ (define (error name* stat errno result)
                 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