Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
28 lines (21 sloc) 336 Bytes
#include "rescheme.h"
int main(void)
{
printf("ReScheme v0.3\n");
#ifdef DEBUG
rs_buf_test();
rs_stack_test();
#endif
rs_gc_init();
rs_object obj;
for (;;) {
printf("> ");
obj = rs_read(stdin);
if (rs_eof_p(obj)) break;
obj = rs_eval(obj);
rs_write(stdout, obj);
printf("\n");
}
rs_gc_shutdown();
return 0;
}