diff options
| -rw-r--r-- | guix/ui.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index dafc04b20f7..e2c9a568eb9 100644 --- a/guix/ui.scm +++ b/guix/ui.scm | |||
| @@ -750,8 +750,11 @@ FILE." | |||
| 750 | (set! mkdir | 750 | (set! mkdir |
| 751 | (error-reporting-wrapper mkdir (directory . args) directory)) | 751 | (error-reporting-wrapper mkdir (directory . args) directory)) |
| 752 | 752 | ||
| 753 | (set! spawn | 753 | ;; 'spawn' appeared in Guile 3.0.9. Address the situation where updating from |
| 754 | (error-reporting-wrapper spawn (filename . args) filename)) | 754 | ;; an old Guix running on an older version of Guile lacking 'spawn'. |
| 755 | (when (module-defined? the-scm-module 'spawn) | ||
| 756 | (set! spawn | ||
| 757 | (error-reporting-wrapper spawn (filename . args) filename))) | ||
| 755 | 758 | ||
| 756 | (define (make-regexp* regexp . flags) | 759 | (define (make-regexp* regexp . flags) |
| 757 | "Like 'make-regexp' but error out if REGEXP is invalid, reporting the error | 760 | "Like 'make-regexp' but error out if REGEXP is invalid, reporting the error |