diff options
| -rw-r--r-- | bin/evaluate.in | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/bin/evaluate.in b/bin/evaluate.in index 6a2678e..0d2ef9c 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -55,11 +55,12 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" ;; during evaluation, so use a sledgehammer to catch such problems. ;; An exception, though, is the evaluation of Guix itself, which ;; requires building a "trampoline" program. - (set! build-things - (lambda (store . args) - (simple-format stderr "warning: building things during evaluation~%") - (simple-format stderr "'build-things' arguments: ~S~%" args) - (apply real-build-things store args))) + (let ((real-build-things build-things)) + (set! build-things + (lambda (store . args) + (simple-format stderr "warning: building things during evaluation~%") + (simple-format stderr "'build-things' arguments: ~S~%" args) + (apply real-build-things store args)))) (parameterize ((%use-substitutes? (assoc-ref spec #:use-substitutes?))) (unless (string-null? guix-package-path) |