main.c

   1
   2 #include <libguile.h>
   3 #include "guile_wrap.h"
   4
   5 int main(int argc, char *argv[])
   6 {
   7   /* int state_flag = NORMAL_STATE; */
   8
   9   scm_with_guile(&register_functions, NULL);
  10   /* scm_shell(argc, argv); */
  11   scm_c_primitive_load("display.scm");
  12
  13   return 0;
  14 }