diff options
| -rw-r--r-- | tests/guile/cantius-test.scm | 5 |
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) |