From 122fd73ce858032a3bad0bc6fd370ddf7a072e74 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 1 Jun 2009 12:19:51 +0000
Subject: [PATCH] fix test suite typo

svn: r15034
---
 collects/tests/mzscheme/file.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/mzscheme/file.ss b/collects/tests/mzscheme/file.ss
index 70b0b78924..5904dd4150 100644
--- a/collects/tests/mzscheme/file.ss
+++ b/collects/tests/mzscheme/file.ss
@@ -952,7 +952,7 @@
 			 (semaphore-post lock))
 			(wrap-evt
 			 (semaphore-peek-evt lock)
-			 (lambda () 0)))))
+			 (lambda (v) 0)))))
 	     void)])
     (test-a-port p (gdelay go) gsync)))