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