24 lines
448 B
C
24 lines
448 B
C
#ifndef INTERP_H_9c7eea5c5cd0f7a32b79a8ca0ab2969f
|
|
#define INTERP_H_9c7eea5c5cd0f7a32b79a8ca0ab2969f
|
|
|
|
#include "gc.h"
|
|
|
|
typedef struct interp_state
|
|
{
|
|
gc_root_t lambda;
|
|
gc_root_t frame;
|
|
gc_root_t argv;
|
|
gc_root_t ctx;
|
|
gc_root_t k;
|
|
gc_root_t in1;
|
|
gc_root_t in2;
|
|
gc_root_t in3;
|
|
fixnum_t nframe;
|
|
} interp_state_t;
|
|
|
|
void interpreter_init(void);
|
|
value_t run_interpreter(value_t lambda, value_t argv);
|
|
|
|
#endif
|
|
/* vim:set sw=2 expandtab: */
|