From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 29 Aug 1992 13:24:26 +0000 (+0000)
Subject: Internal static is not legal, according to some compilers.
X-Git-Tag: 20090517-FFI~9037
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=14f150f58c9543fd6688e283570bc868386c18c9;p=mit-scheme.git

Internal static is not legal, according to some compilers.
---

diff --git a/v7/src/microcode/error.c b/v7/src/microcode/error.c
index ffa97cc13..2c49d0b87 100644
--- a/v7/src/microcode/error.c
+++ b/v7/src/microcode/error.c
@@ -14,7 +14,7 @@
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/error.c,v 1.2 1992/02/10 13:10:44 jinx Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/error.c,v 1.3 1992/08/29 13:24:26 jinx Exp $ */
 
 #include <stdio.h>
 #include "dstack.h"
@@ -64,7 +64,7 @@ DEFUN (condition_type_allocate, (name, generalizations, reporter),
        Tptrvec generalizations AND
        void EXFUN ((*reporter), (Tcondition condition)))
 {
-  static Tptrvec EXFUN (generalizations_union, (Tptrvec generalizations));
+  Tptrvec EXFUN (generalizations_union, (Tptrvec generalizations));
   Tcondition_type type = (xmalloc (sizeof (struct condition_type)));
   Tptrvec g = (generalizations_union (generalizations));
   ptrvec_adjoin (g, type);