Message ID | 875zkhzu5o.fsf@gnu.org |
---|---|
State | Accepted |
Headers | show |
Series | bug#37750: Fixup: Documentation | expand |
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 20e89c0dea..08acb79ed6 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -1037,9 +1037,7 @@ as expected."))) (match-lambda (($ <inputattach-configuration> type device baud-rate log-file) (let ((args (append (if baud-rate - (if (number? baud-rate) - (list "--baud-rate" (number->string baud-rate)) - (error "Expected baud-rate to be a number or #f" baud-rate)) + (list "--baud-rate" (number->string baud-rate)) '()) (list (string-append "--" type) device))))