(next_fluid_num): [From Ludovic Courtès:] Don't trigger

[bpt/guile.git] / libguile / alloca.c

diff --git a/libguile/alloca.c b/libguile/alloca.c
index 55e2a86..a42ae80 100644 (file)
--- a/libguile/alloca.c
+++ b/libguile/alloca.c
@@ -21,13 +21,12 @@
    allocating any.  It is a good idea to use alloca(0) in
    your main control loop, etc. to force garbage collection.  */
 
-/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999,
-   gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
-
-#ifdef HAVE_CONFIG_H
-#include <scmconfig.h>
+#if HAVE_CONFIG_H
+#  include <config.h>
 #endif
 
+#include "libguile/scmconfig.h"
+
 #ifdef HAVE_STRING_H
 #include <string.h>
 #endif
@@ -36,7 +35,7 @@
 #endif
 
 #ifdef emacs
-#include "blockinput.h"
+#include "libguile/blockinput.h"
 #endif
 
 /* If compiling with GCC 2, this file's not needed.  */
@@ -202,7 +201,7 @@ alloca (unsigned size)
   /* Allocate combined header + user data storage.  */
 
   {
-    register pointer new = (pointer) malloc (sizeof (header) + size);
+    register pointer new = (pointer) scm_malloc (sizeof (header) + size);
     /* Address of header.  */
 
     if (new == 0)
@@ -492,3 +491,9 @@ i00afunc (long address)
 
 #endif /* no alloca */
 #endif /* not GCC version 2 */
+
+/*
+  Local Variables:
+  c-file-style: "gnu"
+  End:
+*/