From 8ed33fe7dcc59f9b140052d4caf95b89a826edd1 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sat, 18 Jul 1992 12:15:45 +0000
Subject: [PATCH] Fix naming conflict.

---
 v7/src/microcode/bintopsb.c | 6 ++++--
 v8/src/microcode/bintopsb.c | 6 ++++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index f564a6b84..6c07fbb24 100644
--- 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 */
 
 /* Global data */
diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index dba359a8f..5dffc216d 100644
--- 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 */
 
 /* Global data */
-- 
2.25.1