From 362ccf246d88b5f0395f4990e06834ea0511103a Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 3 Feb 1992 23:36:26 +0000 Subject: [PATCH] Change arity of OS_open_server_socket. --- v7/src/microcode/pruxsock.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.25.1