From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 22 Apr 1995 21:48:53 +0000 (+0000)
Subject: Fix old typo in OS2_close_std_tqueue that was never noticed because
X-Git-Tag: 20090517-FFI~6418
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ca0ec0ccdb30f6d278e13e1724d96f1c5a2b3517;p=mit-scheme.git

Fix old typo in OS2_close_std_tqueue that was never noticed because
this procedure was never called.
---

diff --git a/v7/src/microcode/os2msg.c b/v7/src/microcode/os2msg.c
index f94c826c6..9edfdd4d3 100644
--- a/v7/src/microcode/os2msg.c
+++ b/v7/src/microcode/os2msg.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2msg.c,v 1.7 1995/04/22 21:17:36 cph Exp $
+$Id: os2msg.c,v 1.8 1995/04/22 21:48:53 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -554,7 +554,7 @@ void
 OS2_close_std_tqueue (tqueue_t * tqueue)
 {
   OS2_close_event_semaphore (STD_TQUEUE_EVENT (tqueue));
-  OS2_close_event_semaphore (STD_TQUEUE_MUTEX (tqueue));
+  OS2_close_mutex_semaphore (STD_TQUEUE_MUTEX (tqueue));
   while ((STD_TQUEUE_HEAD (tqueue)) != 0)
     {
       msg_list_t * this = (STD_TQUEUE_HEAD (tqueue));