From 36d403cfd77ff5452978cf94425902675e6ad81b Mon Sep 17 00:00:00 2001 From: Evgeny Pisemsky Date: Thu, 23 Jul 2026 18:50:03 +0300 Subject: scripts: system: Remove unused syntax. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/scripts/system.scm (save-environment-excursion): Remove syntax. * tests/profiles.scm (with-environment-excursion): Prepare syntax for reuse. Signed-off-by: Ludovic Courtès Modified-by: Ludovic Courtès Merges: #10134 --- tests/profiles.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'tests') diff --git a/tests/profiles.scm b/tests/profiles.scm index 55e7146a7a0..e2472aa9e85 100644 --- a/tests/profiles.scm +++ b/tests/profiles.scm @@ -367,11 +367,13 @@ (profile -> (derivation->output-path drv)) (bindir -> (string-append profile "/bin")) (_ (built-derivations (list drv)))) - (define-syntax-rule (with-environment-excursion exp ...) + (define-syntax-rule (with-environment-excursion body ...) + ;; Save the current environment variables, run BODY..., and restore + ;; them. (let ((env (environ))) (dynamic-wind (const #t) - (lambda () exp ...) + (lambda () body ...) (lambda () (environ env))))) (return (and (with-environment-excursion -- cgit v1.2.3