#include #include #include #include #include #include #include #include int main(int argc, char **argv) { pit_runtime *rt = pit_runtime_new(); pit_install_library_essential(rt); pit_install_library_io(rt); pit_install_library_plist(rt); pit_install_library_alist(rt); pit_install_library_bytestring(rt); rj_install_library(rt); if (argc < 2) { pit_repl(rt); } else { pit_load_file(rt, argv[1]); if (pit_runtime_print_error(rt)) return -1; } return 0; }