/* for reading in (rather than linking in) interpreter 
 * R4RS Syntax version
*/

long link_stack_length_in_k = -1;
long link_heap_length_in_k  = -1;
long link_const_length_in_k = -1;

extern short link_ofile__kernel[]; extern long link_sizeof_ofile__kernel;
extern short link_ofile__system[]; extern long link_sizeof_ofile__system;
extern short link_ofile__errors[]; extern long link_sizeof_ofile__errors;
extern short link_ofile__repr[]; extern long link_sizeof_ofile__repr;
extern short link_ofile__multi[]; extern long link_sizeof_ofile__multi;
extern short link_ofile__numbers[]; extern long link_sizeof_ofile__numbers;
extern short link_ofile__ports[]; extern long link_sizeof_ofile__ports;
extern short link_ofile__syntax_eval[]; extern long link_sizeof_ofile__syntax_eval;
extern short link_ofile__standard[]; extern long link_sizeof_ofile__standard;
extern short link_ofile__r4rsSyntax[]; extern long link_sizeof_ofile__r4rsSyntax;
extern short link_ofile__nonstandard[]; extern long link_sizeof_ofile__nonstandard;
extern short link_ofile_gsi[]; extern long link_sizeof_ofile_gsi;

short *link_ofiles[] =
{
 link_ofile__kernel
,link_ofile__system
,link_ofile__errors
,link_ofile__repr
,link_ofile__multi
,link_ofile__numbers
,link_ofile__ports
,link_ofile__syntax_eval
,link_ofile__r4rsSyntax
,link_ofile__standard
,link_ofile__nonstandard
,link_ofile_gsi
};

long *link_sizeof_ofiles[] = 
{
 &link_sizeof_ofile__kernel
,&link_sizeof_ofile__system
,&link_sizeof_ofile__errors
,&link_sizeof_ofile__repr
,&link_sizeof_ofile__multi
,&link_sizeof_ofile__numbers
,&link_sizeof_ofile__ports
,&link_sizeof_ofile__syntax_eval
,&link_sizeof_ofile__r4rsSyntax
,&link_sizeof_ofile__standard
,&link_sizeof_ofile__nonstandard
,&link_sizeof_ofile_gsi
};

long link_nb_ofiles = (sizeof link_ofiles) / sizeof(short *);

/*			 --- E O F ---			*/