diff options
| -rw-r--r-- | gnu/services/base.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index fdc2c8c764..79c9661567 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -1187,7 +1187,11 @@ no serial port console requested; doing nothing~%" '#$(car provision)) 'idle))) args))))) - (stop #~(make-kill-destructor)))))) + (stop #~(let ((stop (make-kill-destructor))) + (lambda (running) + (if (eq? 'idle running) + #f + (stop running))))))))) (define agetty-service-type (service-type (name 'agetty) |