#include <stdlib.h>
#include <libguile.h>
#include <child.h>
#include <container.h>


//__________________________________________________________________________________________________
//$. inner_main ()
/* This is the function which gets called by scm_boot_guile after the
 * Guile library is completely initialized.*/
static void
inner_main (void *closure, int argc, char **argv)
{
  /* First, we create our data type... */
  init_child_type ();
  init_container_type ();
  /* ... then we start a shell, in which the box data type can be
   * used. */
  scm_shell (argc, argv);
}

//__________________________________________________________________________________________________
//$. main ()
int
main (int argc, char **argv)
{
	/* Initialize Guile, then call `inner_main' with the arguments 0,
	 * argc and argv.  */
	scm_boot_guile (argc, argv, inner_main, 0);
	return 0; /* Never reached.  */
}