From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 18 Jul 1992 12:15:45 +0000 (+0000)
Subject: Fix naming conflict.
X-Git-Tag: 20090517-FFI~9222
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8ed33fe7dcc59f9b140052d4caf95b89a826edd1;p=mit-scheme.git

Fix naming conflict.
---

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 */