From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Aug 1999 18:43:05 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4474
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b015e3d43f988d4e77d112f208a8aea7128d5c09;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/microcode/prbfish.c b/v7/src/microcode/prbfish.c
index 43d42f136..b352ed4a0 100644
--- a/v7/src/microcode/prbfish.c
+++ b/v7/src/microcode/prbfish.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prbfish.c,v 1.7 1999/08/13 18:31:52 cph Exp $
+$Id: prbfish.c,v 1.8 1999/08/13 18:42:26 cph Exp $
 
 Copyright (c) 1997, 1999 Massachusetts Institute of Technology
 
@@ -88,7 +88,6 @@ ENCRYPT? says whether to encrypt (#T) or decrypt (#F).")
     error_bad_range_arg (2);
   BF_ecb_encrypt ((STRING_LOC (input_text, 0)),
 		  (STRING_LOC (output_text, 0)),
-		  (STRING_LENGTH (input_text)),
 		  (key_arg (3)),
 		  ((BOOLEAN_ARG (4)) ? BF_ENCRYPT : BF_DECRYPT));
   PRIMITIVE_RETURN (UNSPECIFIC);
diff --git a/v7/src/microcode/uxsock.c b/v7/src/microcode/uxsock.c
index 9727bf01f..39091b0f7 100644
--- a/v7/src/microcode/uxsock.c
+++ b/v7/src/microcode/uxsock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxsock.c,v 1.19 1999/08/13 18:29:28 cph Exp $
+$Id: uxsock.c,v 1.20 1999/08/13 18:43:05 cph Exp $
 
 Copyright (c) 1990-1999 Massachusetts Institute of Technology
 
@@ -146,7 +146,7 @@ DEFUN (OS_canonical_host_name, (host_name), CONST char * host_name)
 CONST char *
 DEFUN (OS_get_host_by_address, (host_addr), CONST char * host_addr)
 {
-  struct hostent * entry = (UX_gethostbyaddr (host_addr, AF_INET));
+  struct hostent * entry = (gethostbyaddr (host_addr, AF_INET));
   if (entry == 0)
     return (0);
   {