picrin/tools/main.c

26 lines
372 B
C
Raw Normal View History

2014-01-17 06:58:31 -05:00
/**
* See Copyright Notice in picrin.h
*/
2013-10-10 03:15:41 -04:00
#include "picrin.h"
#include "picrin/error.h"
2013-10-10 03:15:41 -04:00
int
main(int argc, char *argv[], char **envp)
{
pic_state *pic;
pic = pic_open(argc, argv, envp);
2014-07-27 22:43:52 -04:00
pic_try {
pic_load(pic, "/Users/yuichi/workspace/picrin/tools/main.scm");
2014-01-08 01:38:47 -05:00
}
2014-07-27 22:43:52 -04:00
pic_catch {
pic_print_backtrace(pic, pic->err);
}
pic_close(pic);
2014-07-27 22:43:52 -04:00
return 0;
}