Example #1
0
File: io.c Project: cmatei/yalfs
object io_load(object filename, object env)
{
	object in;

	in = io_file_as_port(filename, PORT_TYPE_INPUT);
	return lisp_repl(in, nil, env);
}
Example #2
0
int main(int argc, char **argv)
{
	if(argc == 1) {
		lisp_repl();
	}else if(argc == 2) {
		lisp_main(argv[1]);
	}else{
		printf("Too many arguments.");
	}

	return 0;
}