diff --git a/gnu/services/base.scm b/gnu/services/base.scm index e5c6bf5335..dfc7571e55 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -1178,7 +1178,13 @@ (define (agetty-shepherd-service config) #$@(if term #~(#$term) #~()))) - (const #f)) ; never start. + #$(if tty + #~(const #f) ;always fail to start + #~(lambda _ ;succeed, but don't do anything + (format #t "~a: \ +no serial port console requested; doing nothing~%" + '#$(car provision)) + 'idle))) args))))) (stop #~(make-kill-destructor))))))