*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
- * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+ * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307 USA
*
* As a special exception, the Free Software Foundation gives permission
* for additional uses of the text contained in its release of GUILE.
*
* If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications.
- * If you do not wish that, delete this exception notice.
- */
+ * If you do not wish that, delete this exception notice. */
\f
/* Guile high level (gh_) interface, initialization-related stuff */
{
main_prog_t c_main_prog = (main_prog_t) closure;
- gh_eval_str ("(primitive-load-path \"ice-9/boot-9.scm\")");
c_main_prog (argc, argv);
exit (0);
}
-
/* starts up the Scheme interpreter, and stays in it. c_main_prog()
is the address of the user's main program, since gh_enter() never
returns. */
void
gh_enter (int argc, char *argv[], main_prog_t c_main_prog)
{
- scm_boot_guile (argc, argv, gh_launch_pad, c_main_prog);
+ scm_boot_guile (argc, argv, gh_launch_pad, (void *) c_main_prog);
/* never returns */
}
/* offer a REPL to the C programmer; for now I just invoke the ice-9
REPL that is written in Scheme */
void
-gh_repl ()
+gh_repl (int argc, char *argv[])
{
-/* gh_eval_str("(primitive-load-path \"ice-9/boot-9.scm\")"); */
- gh_eval_str ("(top-repl)");
+/* gh_eval_str ("(top-repl)"); */
+ scm_shell (argc, argv);
}
/* libguile programmers need exception handling mechanisms; here is