ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-30 08:02:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/gnu: Really ignore the return value of phases.

Browse source 
This is a followup to 04baa011e9.

* guix/build/gnu-build-system.scm (gnu-build): Really ignore the return
value of PROC.  Wrap PROC call in 'with-throw-handler'.  Add
'end-of-phase' procedure and use it.
This commit is contained in:
Ludovic Courtès 2021-01-15 14:01:51 +01:00
parent f8281090d4
commit 9621809ce8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 22 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
guix/build/gnu-build-system.scm
View file

@ -887,14 +887,27 @@ (define (elapsed-time end start)
(for-each (match-lambda
((name . proc)
(let ((start (current-time time-monotonic)))
(format #t "starting phase `~a'~%" name)
(let ((result (apply proc args))
(end (current-time time-monotonic)))
(define (end-of-phase success?)
(let ((end (current-time time-monotonic)))
(format #t "phase `~a' ~:[failed~;succeeded~] after ~,1f seconds~%"
name result
name success?
(elapsed-time end start))
;; Dump the environment variables as a shell script, for handy debugging.
(system "export > $NIX_BUILD_TOP/environment-variables")
result))))
;; Dump the environment variables as a shell script,
;; for handy debugging.
(system "export > $NIX_BUILD_TOP/environment-variables")))
(format #t "starting phase `~a'~%" name)
(with-throw-handler #t
(lambda ()
(apply proc args)
(end-of-phase #t))
(lambda args
;; This handler executes before the stack is unwound.
;; The exception is automatically re-thrown from here,
;; and we should get a proper backtrace.
(format (current-error-port)
"error: in phase '~a': uncaught exception:
~{~s ~}~%" name args)
(end-of-phase #f))))))
phases)))