1 files changed, 8 insertions(+), 0 deletions(-)

M 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