Fix naming conflict.

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index f564a6b841a74358a971d18ac83d997c2e517501..6c07fbb242b5a8e5eb24cfff7af92c29f0b38f15 100644 (file)
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.52 1992/06/10 21:44:48 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.53 1992/07/18 12:15:45 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -81,7 +81,7 @@ static char
   punctuation[] = "'\",<.>/?;:{}[]|`~=+-_()*&^%$#@!";
 
 static Boolean
-DEFUN (ispunct, (c),
+DEFUN (ispunct_local, (c),
        fast char c)
 {
   fast char * s;
@@ -97,6 +97,8 @@ DEFUN (ispunct, (c),
   return (false);
 }
 
+#define ispunct ispunct_local
+
 #endif /* ispunct */
 \f
 /* Global data */

diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index dba359a8f9378d2fd7eadf6e63383bc794e7f412..5dffc216dadd12b82e9f3b7cdfe2917da03460ad 100644 (file)
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.52 1992/06/10 21:44:48 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.53 1992/07/18 12:15:45 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -81,7 +81,7 @@ static char
   punctuation[] = "'\",<.>/?;:{}[]|`~=+-_()*&^%$#@!";
 
 static Boolean
-DEFUN (ispunct, (c),
+DEFUN (ispunct_local, (c),
        fast char c)
 {
   fast char * s;
@@ -97,6 +97,8 @@ DEFUN (ispunct, (c),
   return (false);
 }
 
+#define ispunct ispunct_local
+
 #endif /* ispunct */
 \f
 /* Global data */