Preventing planet2 from running 'raco setup' on updating when no updates were available

collects/planet2/lib.rkt

@@ -684,13 +684,15 @@
   (define to-update (filter-map update-package pkgs))
   (cond
     [(empty? to-update)
-     (printf "No updates available\n")]
+     (printf "No updates available\n")
+     #f]
     [else
      (install-cmd
       #:updating? #t
       #:pre-succeed (λ () (for-each (compose remove-package car) to-update))
       #:dep-behavior dep-behavior
-      (map cdr to-update))]))
+      (map cdr to-update))
+     #t]))
 
 (define (show-cmd)
   (let ()
@@ -805,7 +807,7 @@
         (#:dep-behavior dep-behavior/c
                         #:all? boolean?
                         #:deps? boolean?)
-        void)]
+        boolean?)]
   [remove-packages
    (->* ((listof string?))
         (#:auto? boolean?

collects/planet2/main.rkt

@@ -50,11 +50,11 @@
   #:args pkgs
   (parameterize ([current-install-system-wide? installation])
     (with-package-lock
-     (update-packages pkgs
-                      #:all? all
-                      #:dep-behavior deps
-                      #:deps? update-deps)
-     (setup dont-setup)))]
+     (when (update-packages pkgs
+                            #:all? all
+                            #:dep-behavior deps
+                            #:deps? update-deps)
+       (setup dont-setup))))]
  [remove
   "Remove packages"
   [#:bool dont-setup () "Don't run 'raco setup' after changing packages (generally not a good idea)"]