Add static keyword to definition of ispunct so there won't be a

clonflict with an external routine of the same name.

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index 255902d08d49547b398a7f5ead293cc04b67d7cf..f564a6b841a74358a971d18ac83d997c2e517501 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.51 1992/05/15 03:26:33 jinx Exp $
+$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 $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -80,7 +80,7 @@ extern int strlen ();
 static char
   punctuation[] = "'\",<.>/?;:{}[]|`~=+-_()*&^%$#@!";
 
-Boolean
+static Boolean
 DEFUN (ispunct, (c),
        fast char c)
 {

diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index acd03204d8e0b28dd87f342550cdaee21781ab51..dba359a8f9378d2fd7eadf6e63383bc794e7f412 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.51 1992/05/15 03:26:33 jinx Exp $
+$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 $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -80,7 +80,7 @@ extern int strlen ();
 static char
   punctuation[] = "'\",<.>/?;:{}[]|`~=+-_()*&^%$#@!";
 
-Boolean
+static Boolean
 DEFUN (ispunct, (c),
        fast char c)
 {