* posix.scm (setgrent): pass #t, not #f. thanks to

[bpt/guile.git] / libguile / gh_init.c

diff --git a/libguile/gh_init.c b/libguile/gh_init.c
index e2e58f2..5dbc7da 100644 (file)
--- a/libguile/gh_init.c
+++ b/libguile/gh_init.c
@@ -1,4 +1,4 @@
-/*      Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+/*      Copyright (C) 1995,1996,1997, 2000 Free Software Foundation, Inc.
 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -44,7 +44,7 @@
 
 #include <stdio.h>
 
-#include <gh.h>
+#include "libguile/gh.h"
 
 typedef void (*main_prog_t) (int argc, char **argv);
 typedef void (*repl_prog_t) (int argc, char **argv);
@@ -57,12 +57,10 @@ gh_launch_pad (void *closure, int argc, char **argv)
 {
   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. */
@@ -76,10 +74,10 @@ gh_enter (int argc, char *argv[], main_prog_t c_main_prog)
 /* 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
@@ -105,3 +103,9 @@ gh_standard_handler (void *data, SCM tag, SCM throw_args)
 
   return SCM_BOOL_F;
 }
+
+/*
+  Local Variables:
+  c-file-style: "gnu"
+  End:
+*/