32 lines
1007 B
C
32 lines
1007 B
C
/*
|
|
The cstartup.inc file is not, as distributed, compatible with
|
|
omissions from or additions to the set of built-in identifiers.
|
|
The reason is that the cstartup.inc file is a .zo version of the
|
|
startup.inc files, and the .zo format changes when the set of
|
|
built-in names changes (because indices assigned to the built-in
|
|
names shift).
|
|
|
|
If you make a version with omissions or additions and then run
|
|
`make startup' to recreate the cstartup.inc file, set
|
|
EXPECTED_PRIM_COUNT to the new value, and then USE_COMPILED_STARTUP
|
|
can be set to 1 again. */
|
|
|
|
#define USE_COMPILED_STARTUP 1
|
|
|
|
#define EXPECTED_PRIM_COUNT 863
|
|
|
|
#ifdef MZSCHEME_SOMETHING_OMITTED
|
|
# undef USE_COMPILED_STARTUP
|
|
# define USE_COMPILED_STARTUP 0
|
|
#endif
|
|
|
|
#if defined(__MWERKS__) && !defined(powerc)
|
|
#define MZCOMPILED_STRING_FAR far
|
|
#else
|
|
#define MZCOMPILED_STRING_FAR /**/
|
|
#endif
|
|
|
|
#if USE_COMPILED_STARTUP
|
|
extern Scheme_Object *scheme_eval_compiled_sized_string(const char *str, int len, Scheme_Env *env);
|
|
#endif
|