Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-10 14:37:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing TYPE_DEFS=0

Browse source
This commit is contained in:
Alex Shinn 2011-05-25 09:34:48 +09:00
parent 47add027d6
commit 07c5c7a6f8
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/chibi/features.h
View file

@ -337,7 +337,7 @@
#endif
#ifndef SEXP_USE_GLOBAL_TYPES
#define SEXP_USE_GLOBAL_TYPES (! SEXP_USE_TYPE_DEFS)
#define SEXP_USE_GLOBAL_TYPES 0
#endif
#ifndef SEXP_USE_GLOBAL_SYMBOLS

4
sexp.c
View file

@ -129,13 +129,13 @@ static struct sexp_type_struct _sexp_type_specs[] = {
struct sexp_struct *sexp_type_specs = _sexp_type_specs;
#endif
#define SEXP_INIT_NUM_TYPES (SEXP_NUM_CORE_TYPES*2)
#if SEXP_USE_TYPE_DEFS
#if SEXP_USE_GLOBAL_TYPES
static sexp_uint_t sexp_num_types = SEXP_NUM_CORE_TYPES;
static sexp_uint_t sexp_type_array_size = SEXP_NUM_CORE_TYPES;
#else
#define SEXP_INIT_NUM_TYPES (SEXP_NUM_CORE_TYPES*2)
#endif
sexp sexp_register_type_op (sexp ctx sexp_api_params(self, n), sexp name,