mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

made changes in gh_repl() and started adding the uniform array stuff to gh_

Browse source
This commit is contained in:
Mark Galassi 1997-11-25 06:18:08 +00:00
parent 774b7f2281
commit ef5d3ae175
3 changed files with 42 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/gh_init.c
View file

@ -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