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 a2011be5df.  Reported by
  Nikita Karetnikov <nikita@karetnikov.org>.
This commit is contained in:
Ludovic Courtès 2013-04-12 18:07:17 +02:00
parent 0d2fe78f85
commit d5d6db8918
1 changed files with 2 additions and 1 deletions

View File

@ -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)