store: 'register-path' no longer swallows 'system-error' exceptions.

* guix/store.scm (register-path): Do not catch 'system-error'.

guix/store.scm

@@ -1061,8 +1061,6 @@ Return #t on success.
 Use with care as it directly modifies the store!  This is primarily meant to
 be used internally by the daemon's build hook."
   ;; Currently this is implemented by calling out to the fine C++ blob.
-  (catch 'system-error
-    (lambda ()
   (let ((pipe (apply open-pipe* OPEN_WRITE %guix-register-program
                      `(,@(if prefix
                              `("--prefix" ,prefix)
@@ -1076,9 +1074,6 @@ be used internally by the daemon's build hook."
                    path (or deriver "") (length references))
            (for-each (cut format pipe "~a~%" <>) references)
            (zero? (close-pipe pipe))))))
-    (lambda args
-      ;; Failed to run %GUIX-REGISTER-PROGRAM.
-      #f)))
 
 
 ;;;