From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 2 Mar 2016 23:11:14 +0000 (-0700)
Subject: tests/ffi/test-ffi.scm: Use new param:suppress-loading-message?.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~75^2~19
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4a54aa93d0a7cd022412c2fb27b61288615cc189;p=mit-scheme.git

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 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")))