From 3a0049ccb2e3f45814eb26ab9edca439b468114e Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Tue, 9 Sep 2008 15:57:18 +0000
Subject: [PATCH] Fixed typo that resulted in broken rwlock

svn: r11617
---
 src/mzscheme/src/mzrt.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/mzrt.c b/src/mzscheme/src/mzrt.c
index 730186d5ed..67632fd842 100644
--- a/src/mzscheme/src/mzrt.c
+++ b/src/mzscheme/src/mzrt.c
@@ -222,7 +222,7 @@ int mzrt_rwlock_rdlock(mzrt_rwlock *lock) {
 }
 
 int mzrt_rwlock_wrlock(mzrt_rwlock *lock) {
-  return pthread_rwlock_rdlock(&lock->lock);
+  return pthread_rwlock_wrlock(&lock->lock);
 }
 
 int mzrt_rwlock_tryrdlock(mzrt_rwlock *lock) {