From a72ccbc25125d0d14cabdc1b0f824f27bb64478b Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 9 Oct 2015 12:33:40 -0400 Subject: build: container: Fix call-with-clean-exit. 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. --- gnu/build/linux-container.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'gnu/build/linux-container.scm') diff --git a/gnu/build/linux-container.scm b/gnu/build/linux-container.scm index 95220d0bc0..e911494058 100644 --- a/gnu/build/linux-container.scm +++ b/gnu/build/linux-container.scm @@ -36,7 +36,9 @@ (define (call-with-clean-exit thunk) "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)))) -- cgit v1.2.3