From b9c7ed71b1c4110c3c8580f1bb8050c31324fa6a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 25 Nov 2015 11:57:56 +0100 Subject: services: dmd: Spawn a REPL upon failure to load a service definition. Fixes . Reported by Mark H Weaver . * gnu/services/dmd.scm (dmd-configuration-file)[config]: Wrap 'primitive-load' calls in 'call-with-error-handling'. --- gnu/services/dmd.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'gnu') diff --git a/gnu/services/dmd.scm b/gnu/services/dmd.scm index 6f70f3d79b..545087acc9 100644 --- a/gnu/services/dmd.scm +++ b/gnu/services/dmd.scm @@ -223,7 +223,13 @@ stored." (set! %load-compiled-path (cons #$compiled %load-compiled-path))) - (apply register-services (map primitive-load '#$files)) + (use-modules (system repl error-handling)) + + ;; Arrange to spawn a REPL if loading one of FILES fails. This is + ;; better than a kernel panic. + (call-with-error-handling + (lambda () + (apply register-services (map primitive-load '#$files)))) ;; guix-daemon 0.6 aborts if 'PATH' is undefined, so work around it. (setenv "PATH" "/run/current-system/profile/bin") -- cgit v1.2.3