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

View file

@ -211,7 +211,8 @@ (define (switch-link)
(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)