mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* eval.c: #include <config.h> if HAVE_CONFIG_H. #include

Browse source 
"libguile/__scm.h" rather than scmconfig.h.  Rename usage of
HAVE_ARRAYS to SCM_HAVE_ARRAYS.  Replace usage of HAVE_LONG_LONGS
with "SCM_SIZEOF_LONG_LONG != 0".
This commit is contained in:
Rob Browning 2003-03-25 23:54:28 +00:00
parent 4600886f39
commit 3d05f2e0fb
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/eval.c
View file

@ -52,10 +52,13 @@
/* SECTION: This code is compiled once. /* SECTION: This code is compiled once.
*/ */
#ifndef DEVAL #if HAVE_CONFIG_H
# include <config.h>
#endif
/* We need this to get the definitions for HAVE_ALLOCA_H, etc. */ #include "libguile/__scm.h"
#include "libguile/scmconfig.h"
#ifndef DEVAL
/* AIX requires this to be the first thing in the file. The #pragma /* AIX requires this to be the first thing in the file. The #pragma
directive is indented so pre-ANSI compilers will ignore it, rather directive is indented so pre-ANSI compilers will ignore it, rather
@ -2666,7 +2669,7 @@ dispatch:
scm_misc_error (NULL, "Wrong type to apply: ~S", scm_list_1 (proc)); scm_misc_error (NULL, "Wrong type to apply: ~S", scm_list_1 (proc));
case scm_tc7_vector: case scm_tc7_vector:
case scm_tc7_wvect: case scm_tc7_wvect:
#ifdef HAVE_ARRAYS #ifdef SCM_HAVE_ARRAYS
case scm_tc7_bvect: case scm_tc7_bvect:
case scm_tc7_byvect: case scm_tc7_byvect:
case scm_tc7_svect: case scm_tc7_svect:
@ -2675,7 +2678,7 @@ dispatch:
case scm_tc7_fvect: case scm_tc7_fvect:
case scm_tc7_dvect: case scm_tc7_dvect:
case scm_tc7_cvect: case scm_tc7_cvect:
#ifdef HAVE_LONG_LONGS #if SCM_SIZEOF_LONG_LONG != 0
case scm_tc7_llvect: case scm_tc7_llvect:
#endif #endif
#endif #endif