Add eval
This commit is contained in:
+1
-1
@@ -17,7 +17,7 @@ int main(int argc, const char **argv) {
|
||||
REGISTER_GLOBAL_FUNCTION(cool_func);
|
||||
push_stack_frame(Qnil, Qnil, Qnil);
|
||||
ReadStream s;
|
||||
const char BUF[] = "()";
|
||||
const char BUF[] = "(1 'a)";
|
||||
read_stream_init(&s, BUF, sizeof(BUF) - 1);
|
||||
LispVal *l = read(&s);
|
||||
Ffuncall(Qcool_func, l);
|
||||
|
||||
Reference in New Issue
Block a user