replace evaluator in repl to the VM

This commit is contained in:
Yuichi Nishiwaki
2013-10-12 12:55:05 +09:00
parent 65c9843d83
commit ee3442210c
3 changed files with 8 additions and 2 deletions
+5 -1
View File
@@ -33,6 +33,7 @@ main()
char line[LINE_MAX_LENGTH], last_char;
int char_index;
pic_value v;
struct pic_proc *proc;
pic = pic_open();
@@ -54,7 +55,10 @@ main()
/* echo */
v = pic_parse(pic, line);
pic_debug(pic, pic_eval(pic, v, pic->global_env));
//pic_debug(pic, pic_eval(pic, v, pic->global_env));
proc = pic_codegen(pic, v, pic->global_env);
v = pic_run(pic, proc, pic_nil_value());
pic_debug(pic, v);
printf("\n");
}
+2
View File
@@ -138,6 +138,7 @@ pic_codegen(pic_state *pic, pic_value obj, struct pic_env *env)
return proc;
}
#if 0
int
main()
{
@@ -164,3 +165,4 @@ main()
return 0;
}
#endif