From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Nov 1990 17:05:25 +0000 (+0000)
Subject: Gaak!  Fix nasty typo.
X-Git-Tag: 20090517-FFI~11056
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=85f174a5b7ad805a467465eb22580c0a02f4cae4;p=mit-scheme.git

Gaak!  Fix nasty typo.
---

diff --git a/v7/src/microcode/prosterm.c b/v7/src/microcode/prosterm.c
index 3be660c22..58516304e 100644
--- a/v7/src/microcode/prosterm.c
+++ b/v7/src/microcode/prosterm.c
@@ -1,6 +1,6 @@
 /* -*-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
 
@@ -67,7 +67,7 @@ DEFINE_PRIMITIVE ("BAUD-INDEX->RATE", Prim_baud_index_to_rate, 1, 1, 0)
 {
   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)
diff --git a/v7/src/microcode/pruxsock.c b/v7/src/microcode/pruxsock.c
index 93d48889c..adecb6b87 100644
--- a/v7/src/microcode/pruxsock.c
+++ b/v7/src/microcode/pruxsock.c
@@ -1,6 +1,6 @@
 /* -*-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
 
@@ -139,7 +139,7 @@ DEFINE_PRIMITIVE ("TCP-SERVER-CONNECTION-ACCEPT", Prim_tcp_server_connection_acc
   "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);
diff --git a/v7/src/microcode/x11term.c b/v7/src/microcode/x11term.c
index 75e7daa0e..d2e3fd53f 100644
--- a/v7/src/microcode/x11term.c
+++ b/v7/src/microcode/x11term.c
@@ -1,6 +1,6 @@
 /* -*-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
 
@@ -195,7 +195,7 @@ DEFUN (xterm_y_coordinate_map, (xw, y), struct xwindow * xw AND unsigned int y)
 }
 
 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