01/01: guix package: Allow `guix package -u' to fuction as before.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit a60667245f7b31abba5cb5bb4e5a435816b82950
Author: Efraim Flashner <address@hidden>
Date:   Tue Aug 1 23:02:26 2017 +0300

    guix package: Allow `guix package -u' to fuction as before.
    
    This is a follow up to 6ddf97f81bb99a73f00e30ad5fc19577872b5b49
    
    * guix/scripts/package.scm (%options) <"-u">: Only check for a flag when
    there is an ARG after '-u'.
---
 guix/scripts/package.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index b6133b6..fa45bd4 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -486,7 +486,7 @@ Install, remove, or upgrade packages in a single 
transaction.\n"))
                              arg-handler))))
          (option '(#\u "upgrade") #f #t
                  (lambda (opt name arg result arg-handler)
-                   (when (string-prefix? "-" arg)
+                   (when (and arg (string-prefix? "-" arg))
                      (warning (G_ "upgrade regexp '~a' looks like a \
 command-line option~%")
                               arg)