From: Taylor R. Campbell <net/mumble/campbell>
Date: Sat, 20 Jan 2007 23:49:18 +0000 (+0000)
Subject: Wrap the new SHUTDOWN-SOCKET primitive's body in SOCKET_CODE.
X-Git-Tag: 20090517-FFI~761
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4a1065d390c880d020ce3cba3f5186f99a426fe4;p=mit-scheme.git

Wrap the new SHUTDOWN-SOCKET primitive's body in SOCKET_CODE.
---

diff --git a/v7/src/microcode/pruxsock.c b/v7/src/microcode/pruxsock.c
index 5afc02305..eba6cd92b 100644
--- a/v7/src/microcode/pruxsock.c
+++ b/v7/src/microcode/pruxsock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pruxsock.c,v 1.26 2007/01/12 03:45:55 cph Exp $
+$Id: pruxsock.c,v 1.27 2007/01/20 23:49:18 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -262,9 +262,12 @@ The opened socket is stored in the cdr of WEAK-PAIR.")
 DEFINE_PRIMITIVE ("SHUTDOWN-SOCKET", Prim_shutdown_socket, 2, 2, "")
 {
   PRIMITIVE_HEADER (2);
-  OS_shutdown_socket ((arg_client_socket (1)),
-		      (arg_integer_in_range (2, 1, 4)));
-  PRIMITIVE_RETURN (UNSPECIFIC);
+  SOCKET_CODE
+    ({
+      OS_shutdown_socket ((arg_client_socket (1)),
+			  (arg_integer_in_range (2, 1, 4)));
+      PRIMITIVE_RETURN (UNSPECIFIC);
+    });
 }
 
 DEFINE_PRIMITIVE ("NEW-OPEN-TCP-SERVER-SOCKET", Prim_new_open_tcp_server_socket, 2, 2,