From: Guillermo J. Rozas Date: Mon, 22 Feb 1993 21:25:32 +0000 (+0000) Subject: Remove warnings. X-Git-Tag: 20090517-FFI~8483 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=71603ae3b54e9a00ecd81e480830bb4434891f7d;p=mit-scheme.git Remove warnings. --- diff --git a/v7/src/microcode/error.c b/v7/src/microcode/error.c index 2c49d0b87..9924bb7fb 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.3 1992/08/29 13:24:26 jinx Exp $ */ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/error.c,v 1.4 1993/02/22 21:25:32 gjr Exp $ */ #include #include "dstack.h" @@ -157,7 +157,7 @@ DEFUN (generalizations_union_2, (x, y), Tptrvec x AND Tptrvec y) return (result); } -static Tptrvec +Tptrvec DEFUN (generalizations_union, (generalizations), Tptrvec generalizations) { Tptrvec_length length = (PTRVEC_LENGTH (generalizations));