35 lines
598 B
C
35 lines
598 B
C
|
/**
|
||
|
|
* See Copyright Notice in picrin.h
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "picrin.h"
|
||
|
|
#include "picrin/macro.h"
|
||
|
|
|
||
|
|
pic_value
|
||
|
|
pic_eval(pic_state *pic, pic_value program, struct pic_lib *lib)
|
||
|
|
{
|
||
|
|
struct pic_proc *proc;
|
||
|
|
|
||
|
|
proc = pic_compile(pic, program, lib);
|
||
|
|
|
||
|
|
return pic_apply(pic, proc, pic_nil_value());
|
||
|
|
}
|
||
|
|
|
||
|
|
static pic_value
|
||
|
|
pic_eval_eval(pic_state *pic)
|
||
|
|
{
|
||
|
|
pic_value program, spec;
|
||
|
|
|
||
|
|
pic_get_args(pic, "oo", &program, &spec);
|
||
|
|
|
||
|
|
return pic_eval(pic, program, pic_find_library(pic, spec));
|
||
|
|
}
|
||
|
|
|
||
|
|
void
|
||
|
|
pic_init_eval(pic_state *pic)
|
||
|
|
{
|
||
|
|
pic_deflibrary ("(scheme eval)") {
|
||
|
|
pic_defun(pic, "eval", pic_eval_eval);
|
||
|
|
}
|
||
|
|
}
|