scripts: system: Remove unused syntax.

* 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 <ludo@gnu.org>
Modified-by: Ludovic Courtès <ludo@gnu.org>
Merges: #10134

1 files changed, 4 insertions, 2 deletions

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