lisp.c


1
2
3
4
5
6
7
8
9
10
11
12
13

#include "types.h"
#include "y.tab.h"

extern ast *ass[MAXASS];
extern int asscount;

values *eval(ast *a);

int main() {
	yyparse();
	for (int i = 0; i < asscount; i++) 
		eval(ass[i]);
}