Bug fix: libguile/unif.c libguile/unif.h

[Edwin Bates]

IBM C compiler on AIX reports syntax error: 
"unif.c", line 180.1: 1506-343 (S) Redeclaration of scm_makflo differs from
previous declaration on line 78 of "unif.h".

2002-01-28  Edwin J. Bates  address@hidden <mailto:address@hidden> 

* libguile/unif.c (powerpc-ibm-aix4.3.3.0): 

--------------------- Begin diff -c ----------------------
*** unif.c.orig Mon Jan 28 14:53:44 2002    
--- unif.c      Mon Jan 28 11:17:27 2002    
***************                             
*** 49,54 ****                              
--- 49,55 ----                              
  #include "strop.h"                        
  #include "feature.h"                      
                                            
+ #define IN_UNIF_C                         
  #include "unif.h"                         
  #include "ramap.h"                        
                                            
***************                             
*** 55,60 ****                              
--- 56,62 ----                              
  #ifdef HAVE_UNISTD_H                      
  #include <unistd.h>                       
  #endif                                    
+ #undef IN_UNIF_C                          
                                            
                                            
  /* The set of uniform scm_vector types is:
--------------------- End diff -c ----------------------

* libguile/unif.h: Ignore reference to scm_makflo if included from unif.c.

--------------------- Begin diff -c ----------------------
*** unif.h.orig Mon Jan 28 14:54:24 2002                         
--- unif.h      Mon Jan 28 11:18:23 2002                         
***************                                                  
*** 75,81 ****                                                   
--- 75,83 ----                                                   
                                                                 
                                                                 
  extern SCM scm_vector_set_length_x SCM_P ((SCM vect, SCM len));
+ #ifndef IN_UNIF_C 
  extern SCM scm_makflo SCM_P ((float x)); 
+ #endif 
  extern SCM scm_make_uve SCM_P ((long k, SCM prot)); 
  extern SCM scm_uniform_vector_length SCM_P ((SCM v));
  extern SCM scm_array_p SCM_P ((SCM v, SCM prot));
--------------------- End diff -c ----------------------



-- Ed
"Get it right, then release it...." --Joel Benisch