~ruther/guix-local: build-system: emacs: Error if package file could not be generated.

8030c91dc225429d7c2cdcc018f682ae7a4154d1 — Liliana Marie Prikler 9 months ago 6f93f5a

build-system: emacs: Error if package file could not be generated.

* guix/build/emacs-build-system.scm (ensure-package-description)
[%write-pkg-file-form]: Use ‘error’ for error reporting.

patch browse .tar.gz

1 files changed, 11 insertions(+), 8 deletions(-)

M guix/build/emacs-build-system.scm

M guix/build/emacs-build-system.scm => guix/build/emacs-build-system.scm +11 -8

@@ 209,14 209,17 @@ locations in the store in '.el' files."
            (build-package-desc-from-library name)
            (concat name "-pkg.el")))
 
-        (condition-case
-         err
-         (let ((name (file-name-base (buffer-file-name))))
-           (generate-package-description-file name)
-           (message (concat name "-pkg.el file generated.")))
-         (error
-          (message "There are some errors during generation of -pkg.el file:")
-          (message "%s" (error-message-string err))))))
+        (let ((name (file-name-base (buffer-file-name)))
+              (backtrace-on-error-noninteractive nil)) ; reduce backtrace noise
+          (condition-case
+           err
+           (progn
+            (generate-package-description-file name)
+            (message (concat name "-pkg.el file generated.")))
+           (error
+            (error
+             "ensure-package-description: could not generate %s-pkg.el: %s"
+             name (error-message-string err)))))))
 
     (unless (file-exists? (string-append name "-pkg.el"))
       (emacs-batch-edit-file (string-append name ".el")