From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 27 Oct 1993 22:15:12 +0000 (+0000)
Subject: SunOS 4.1.? declares abort to return int.
X-Git-Tag: 20090517-FFI~7669
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c82e62b302fa5531a642342da025e0401b2c1b04;p=mit-scheme.git

SunOS 4.1.? declares abort to return int.
---

diff --git a/v7/src/microcode/obstack.h b/v7/src/microcode/obstack.h
index 98ba9e35b..33ce94d61 100644
--- a/v7/src/microcode/obstack.h
+++ b/v7/src/microcode/obstack.h
@@ -141,8 +141,10 @@ struct obstack		/* control current object in current chunk */
 
 /* Declare the external functions we use; they are in obstack.c.  */
 
+#ifndef _SUNOS4
 extern void
   EXFUN (abort, (void));
+#endif
 
 #ifdef __STDC__
   extern void _obstack_newchunk (struct obstack *, int);