/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosterm.c,v 1.6 1990/11/08 11:05:26 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosterm.c,v 1.7 1990/11/14 16:59:18 cph Rel $
Copyright (c) 1990 Massachusetts Institute of Technology
{
PRIMITIVE_HEADER (1);
PRIMITIVE_RETURN
- (long_to_integer (OS_baud_index_to_rate [arg_baud_index (1)]));
+ (long_to_integer (OS_baud_index_to_rate (arg_baud_index (1))));
}
DEFINE_PRIMITIVE ("BAUD-RATE->INDEX", Prim_baud_rate_to_index, 1, 1, 0)
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/pruxsock.c,v 1.2 1990/11/08 11:06:58 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/pruxsock.c,v 1.3 1990/11/14 17:01:59 cph Rel $
Copyright (c) 1990 Massachusetts Institute of Technology
"Poll SERVER-SOCKET for a connection.\n\
If a connection is available, it is opened and returned.\n\
Otherwise, if SERVER-SOCKET is non-blocking, returns #F.\n\
-Second argument PEER-ADDRESS, if not #F, must be a host address string.
+Second argument PEER-ADDRESS, if not #F, must be a host address string.\n\
It is filled with the peer's address if given.")
{
PRIMITIVE_HEADER (2);
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11term.c,v 1.13 1990/10/25 21:34:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11term.c,v 1.14 1990/11/14 17:05:25 cph Rel $
Copyright (c) 1989, 1990 Massachusetts Institute of Technology
}
static void
-DEFUN (xterm_copy_map_line, (xw, x_start, x_end, y1, y2),
+DEFUN (xterm_copy_map_line, (xw, x_start, x_end, y_from, y_to),
struct xwindow * xw AND
unsigned int x_start AND
unsigned int x_end AND