summaryrefslogtreecommitdiff
path: root/libguile/gh_init.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gh_init.c')
-rw-r--r--libguile/gh_init.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/gh_init.c b/libguile/gh_init.c
index e2e58f23a..eb6858bd2 100644
--- a/libguile/gh_init.c
+++ b/libguile/gh_init.c
@@ -57,7 +57,7 @@ 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\")");
+/* gh_eval_str ("(primitive-load-path \"ice-9/boot-9.scm\")"); */
c_main_prog (argc, argv);
exit (0);
}
@@ -76,10 +76,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