* init.c (scm_init_guile, scm_init_guile_1): New interface for