summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/services/base.scm8
1 files changed, 7 insertions, 1 deletions
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 @@ to use as the tty. This is primarily useful for headless systems."
#$@(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))))))