diff options
| -rw-r--r-- | guix/scripts/package.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 094d348ac9..aeeeab307c 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -295,7 +295,10 @@ return its return value." (lambda (signum) (sigaction SIGINT SIG_DFL) (abort-to-prompt %sigint-prompt signum))) - (thunk)) + (dynamic-wind + (const #t) + thunk + (cut sigaction SIGINT SIG_DFL))) (lambda (k signum) (handler signum)))) |