tests/ffi/test-ffi.scm: Use new param:suppress-loading-message?.

diff --git a/tests/ffi/test-ffi.scm b/tests/ffi/test-ffi.scm
index 7b07f663c886cd65dbddb8bc65e99e49e60b9f3b..ba4724c32aae97616ad7b50daab9708cd329d9f2 100644 (file)
--- a/tests/ffi/test-ffi.scm
+++ b/tests/ffi/test-ffi.scm
@@ -24,7 +24,7 @@ USA.
 
 |#
 
-;;;; Build and test the test library wrapper.
+;;;; Build and test the test plugin.
 
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
@@ -39,9 +39,8 @@ USA.
                          (notification-output-port))
            (error "Test FFI build failed:" status))
          (begin
-           (let-fluid load/suppress-loading-message? #t
-             (lambda ()
-               (load-option 'FFI)))
+           (parameterize ((param:suppress-loading-message? #t))
+             (load-option 'FFI))
            (with-system-library-directories '("./")
              (lambda ()
                (compile-file "test-ffi-wrapper")))