* alloca.c (alloca): Cast value returned by malloc. (Thanks to

Christian Lynbech.)

diff --git a/libguile/alloca.c b/libguile/alloca.c
index 8ce3817..0980dd7 100644 (file)
--- a/libguile/alloca.c
+++ b/libguile/alloca.c
@@ -200,7 +200,7 @@ alloca (size)
   /* Allocate combined header + user data storage.  */
 
   {
-    register pointer new = malloc (sizeof (header) + size);
+    register pointer new = (pointer) malloc (sizeof (header) + size);
     /* Address of header.  */
 
     if (new == 0)