From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Apr 2002 13:47:30 +0000 (+0000)
Subject: Add missing call to transaction_begin.
X-Git-Tag: 20090517-FFI~2188
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=394cd69b3ab25eabc247e0b161c11a9a4b199c25;p=mit-scheme.git

Add missing call to transaction_begin.
---

diff --git a/v7/src/microcode/ntsock.c b/v7/src/microcode/ntsock.c
index 98a9d5fb8..e589436ff 100644
--- a/v7/src/microcode/ntsock.c
+++ b/v7/src/microcode/ntsock.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: ntsock.c,v 1.11 2001/07/19 00:44:37 cph Exp $
+$Id: ntsock.c,v 1.12 2002/04/23 13:47:30 cph Exp $
 
-Copyright (c) 1997-2001 Massachusetts Institute of Technology
+Copyright (c) 1997-2002 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -189,6 +189,7 @@ Tchannel
 OS_create_tcp_server_socket (void)
 {
   SOCKET s;
+  transaction_begin ();
   SOCKET_SOCKET_CALL (socket, (PF_INET, SOCK_STREAM, 0), s);
   RETURN_SOCKET (s, NT_channel_class_tcp_server_socket);
 }