From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 3 Feb 1992 23:36:26 +0000 (+0000)
Subject: Change arity of OS_open_server_socket.
X-Git-Tag: 20090517-FFI~9894
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=362ccf246d88b5f0395f4990e06834ea0511103a;p=mit-scheme.git

Change arity of OS_open_server_socket.
---

diff --git a/v7/src/microcode/pruxsock.c b/v7/src/microcode/pruxsock.c
index cfce654c4..2d5584d23 100644
--- a/v7/src/microcode/pruxsock.c
+++ b/v7/src/microcode/pruxsock.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/pruxsock.c,v 1.4 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/pruxsock.c,v 1.5 1992/02/03 23:36:26 jinx Exp $
 
-Copyright (c) 1990-1991 Massachusetts Institute of Technology
+Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -124,7 +124,7 @@ DEFINE_PRIMITIVE ("OPEN-TCP-SERVER-SOCKET", Prim_open_tcp_server_socket, 1, 1,
 {
   PRIMITIVE_HEADER (1);
   PRIMITIVE_RETURN
-    (long_to_integer (OS_open_server_socket (arg_nonnegative_integer (1))));
+    (long_to_integer (OS_open_server_socket ((arg_nonnegative_integer (1)), 1)));
 }
 
 static Tchannel