23 lines
332 B
C
23 lines
332 B
C
#include <stdio.h>
|
|
|
|
#include "wscm.h"
|
|
|
|
int main(void) {
|
|
gcinit();
|
|
|
|
O env = NIL;
|
|
addroot(&env);
|
|
setupenv(&env);
|
|
|
|
// IF
|
|
O code = cons(SYM("if"), cons(NIL, cons(NUM(100), cons(NUM(200), NIL))));
|
|
addroot(&code);
|
|
|
|
// collect();
|
|
println(code);
|
|
printf("=> ");
|
|
println(eval(code, env));
|
|
|
|
gcfinalize();
|
|
return 0;
|
|
}
|