gud.el: Generate less unreachable code

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index a4e611277e487463da57ec6c02b02056d574f522..716b113c3c7cdf94c68467a1245bb6fbd822f60a 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -440,7 +440,9 @@ we're in the GUD buffer)."
      (defalias ',func (lambda (arg)
        ,@(if doc (list doc))
        (interactive "p")
-       (if (or (not gud-running) (and ,async-ok gud-async-running))
+       (if
+           ,(if (byte-compile-nilconstp async-ok) '(not gud-running)
+              `(or (not gud-running) (and ,async-ok gud-async-running)))
         ,(if (stringp cmd)
              `(gud-call ,cmd arg)
            ;; Unused lexical warning if cmd does not use "arg".