diff options
| -rw-r--r-- | guix/scripts/offload.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index 1d86f99ca8..0761d68492 100644 --- a/guix/scripts/offload.scm +++ b/guix/scripts/offload.scm @@ -317,7 +317,12 @@ hook." (let ((pipe (remote-pipe machine OPEN_READ `("guile" "-c" ,(object->string script))))) (get-string-all pipe) - (close-pipe pipe))) + (let ((status (close-pipe pipe))) + (unless (zero? status) + ;; Better be safe than sorry: if we ignore the error here, then FILE + ;; may be GC'd just before we start using it. + (leave (_ "failed to register GC root for '~a' on '~a' (status: ~a)~%") + file machine status))))) (define (remove-gc-root machine) "Remove from MACHINE the GC root previously installed with |