Make bindings from `(scheme base)' the default in test code.

1 files changed, 1 insertions, 3 deletions

diff --git a/tests/guile/cantius-test.scm b/tests/guile/cantius-test.scm
index 5285a54..47a2b64 100644
--- a/tests/guile/cantius-test.scm
+++ b/tests/guile/cantius-test.scm
@@ -2,12 +2,10 @@
 ;;;
 ;;; Copyright (C) 2023-2025 Wojtek Kosior <koszko@koszko.org>
 
-(use-modules ((scheme base) #:select
-              (bytevector-copy bytevector-length string->utf8))
+(use-modules (scheme base)
              ((srfi srfi-8) #:select (receive))
              ((srfi srfi-11) #:select (let*-values))
              ((srfi srfi-26) #:select (cut))
-             ((srfi srfi-34) #:select (guard raise))
              ((srfi srfi-35) #:select (condition-has-type?))
              ((srfi srfi-45) #:select (delay force))
              ((ice-9 safe-r5rs) #:select (null-environment))