Rely on `(scheme eval)' rather than `(ice-9 safe-r5rs)'.HEADmagister

1 files changed, 2 insertions, 3 deletions

diff --git a/tests/guile/cantius-test.scm b/tests/guile/cantius-test.scm
index c0a2136..0cd27af 100644
--- a/tests/guile/cantius-test.scm
+++ b/tests/guile/cantius-test.scm
@@ -3,6 +3,7 @@
 ;;; Copyright (C) 2023-2025 Wojtek Kosior <koszko@koszko.org>
 
 (use-modules (scheme base)
+             ((scheme eval) #:select (environment eval))
 
              ((srfi srfi-8) #:select (receive))
              ((srfi srfi-11) #:select (let*-values))
@@ -10,7 +11,6 @@
              ((srfi srfi-35) #:select (condition-has-type?))
              ((srfi srfi-45) #:select (delay force))
 
-             ((ice-9 safe-r5rs) #:select (null-environment))
              ((ice-9 format) #:select (format))
              ((ice-9 match) #:select (match-lambda))
              ((ice-9 regex) #:prefix reg:)
@@ -199,8 +199,7 @@ Host: example.com
               "k=v;;")))
 
 (define (make-env)
-  (let ((env (null-environment 5)))
-    (module-use! env (resolve-interface '(guile)))
+  (let ((env (environment '(guile))))
     env))
 
 (define (test-env name)