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 9297c90b69
commit c31d1a7860
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~%") (leave (_ "error: profile `~a' does not exist~%")
profile)) profile))
((zero? number) ; empty 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 ((or (zero? previous-number) ; going to emptiness
(not (file-exists? previous-profile))) (not (file-exists? previous-profile)))
(let*-values (((drv-path drv) (let*-values (((drv-path drv)