~ruther/guix-local: package: Being at the empty profile is not an error.

d5d6db8918fb8cd66132f5ad5d4c03d6ed2db815 — Ludovic Courtès 13 years ago 0d2fe78

package: Being at the empty profile is not an error.

* guix/scripts/package.scm (roll-back): Use `format', not `leave' when
  indicating "already at the empty profile".  Fixes a regression
  introduced in a2011be5dfaf2b94a1d0e3dfbcf4b512389b4711.  Reported by
  Nikita Karetnikov <nikita@karetnikov.org>.

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M guix/scripts/package.scm

M guix/scripts/package.scm => guix/scripts/package.scm +2 -1

@@ 211,7 211,8 @@ all of PACKAGES, a list of name/version/output/path/deps tuples."
            (leave (_ "error: profile `~a' does not exist~%")
                   profile))
           ((zero? number)                         ; empty profile
-           (leave (_ "nothing to do: already at the empty profile~%")))
+           (format (current-error-port)
+                   (_ "nothing to do: already at the empty profile~%")))
           ((or (zero? previous-number)            ; going to emptiness
                (not (file-exists? previous-profile)))
            (let*-values (((drv-path drv)