Index: eval.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/eval.c,v
retrieving revision 1.363
diff -u -r1.363 eval.c
--- eval.c	26 Apr 2004 19:59:03 -0000	1.363
+++ eval.c	28 Apr 2004 21:21:18 -0000
@@ -38,7 +38,11 @@
 /* AIX requires this to be the first thing in the file.  The #pragma
    directive is indented so pre-ANSI compilers will ignore it, rather
    than choke on it.  */
-#ifndef __GNUC__
+#ifdef __GNUC__
+# ifndef alloca
+#  define alloca __builtin_alloca
+# endif
+#else
 # if HAVE_ALLOCA_H
 #  include <alloca.h>
 # else