amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build: container: Fix call-with-clean-exit.

Browse source 
Before, call-with-clean-exit would *always* return an exit code of 1.

* gnu/build/linux-container.scm (call-with-clean-exit): Exit with status
  code of 0 if thunk does not throw an exception.
* tests/containers.scm: Add test.
This commit is contained in:
David Thompson 2015-10-09 12:33:40 -04:00
parent f5a21dc4cf
commit a72ccbc251
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
gnu/build/linux-container.scm
View file

@ -36,7 +36,9 @@
"Apply THUNK, but exit with a status code of 1 if it fails."
(dynamic-wind
(const #t)
thunk
(lambda ()
(thunk)
(primitive-exit 0))
(lambda ()
(primitive-exit 1))))