From 4a54aa93d0a7cd022412c2fb27b61288615cc189 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 2 Mar 2016 16:11:14 -0700
Subject: [PATCH] tests/ffi/test-ffi.scm: Use new
 param:suppress-loading-message?.

---
 tests/ffi/test-ffi.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/tests/ffi/test-ffi.scm b/tests/ffi/test-ffi.scm
index 7b07f663c..ba4724c32 100644
--- 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")))
-- 
2.25.1