From 0705774634701d6404d1838c150727d856e582bc Mon Sep 17 00:00:00 2001
From: bdc <bdc>
Date: Wed, 23 Apr 1997 22:51:03 +0000
Subject: [PATCH] update for sunos4 acc compiler

---
 cig/libcig.c   | 2 +-
 cig/libcig.scm | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/cig/libcig.c b/cig/libcig.c
index 5d35792..f8f0f4f 100644
--- a/cig/libcig.c
+++ b/cig/libcig.c
@@ -68,7 +68,7 @@ scheme_value df_c_veclen(long nargs, scheme_value *args)
 
 scheme_value df_free(long nargs, scheme_value *args)
 {
-    extern void free(void* );
+    
 
     cig_check_nargs(1, nargs, "free");
     free((void* )AlienVal(args[0]));
diff --git a/cig/libcig.scm b/cig/libcig.scm
index 99bacd4..baabd16 100644
--- a/cig/libcig.scm
+++ b/cig/libcig.scm
@@ -123,7 +123,8 @@
     (mapv! string-carrier->string-no-free vec)))
 
 
-(define-foreign C-free (free ((C void*) ptr)) ignore)
+(define-foreign C-free (free ((C void*) ptr)) no-declare ; for SunOS 4.x 
+  ignore)
 
 (define-foreign %set-string-vector-carriers!
   (set_strvec_carriers (vector-desc svec) ((C char**) cvec))