From a0a06f4101609adc9a5e08aed06af3c34adacbc7 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Mon, 11 Jan 1999 08:06:18 +0000
Subject: [PATCH] * alloca.c (alloca): Cast value returned by malloc.  (Thanks
 to Christian Lynbech.)

---
 libguile/alloca.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/alloca.c b/libguile/alloca.c
index 8ce381790..0980dd7e3 100644
--- 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)