diff options
author | Mark Galassi <mark+savannah@galassi.org> | 1997-11-25 17:20:23 +0000 |
---|---|---|
committer | Mark Galassi <mark+savannah@galassi.org> | 1997-11-25 17:20:23 +0000 |
commit | 5aadf8c195a19fb2026e07633c1feaffc5f76d60 (patch) | |
tree | 0f973ec99580e3990acf02219f3f4cdab9703d5e /libguile | |
parent | ef5d3ae17549e4da69dbbba316f5722a5d2f9ea0 (diff) | |
download | guile-5aadf8c195a19fb2026e07633c1feaffc5f76d60.tar.gz |
completing changes to gh_repl and uniform array stuff
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/ChangeLog | 10 | ||||
-rw-r--r-- | libguile/gh.h | 2 | ||||
-rw-r--r-- | libguile/gh_init.c | 1 | ||||
-rw-r--r-- | libguile/gh_test_c.c | 2 | ||||
-rw-r--r-- | libguile/gh_test_repl.c | 4 |
5 files changed, 14 insertions, 5 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index febe9144a..42efc5c3b 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +1997-11-25 Mark Galassi <rosalia@cygnus.com> + + * gh_test_repl.c (main_prog): changed invocation of gh_repl() to + gh_repl (argc, argv). + 1997-11-24 Mark Galassi <rosalia@nis.lanl.gov> * gh_init.c (gh_repl): modified gh_repl() to accept argc and argv @@ -6,6 +11,11 @@ since it is probably best to let the user control that. In fact, gh_repl() now invokes scm_shell() which does that. +1997-11-23 Mark Galassi <rosalia@cygnus.com> + + * gh_test_repl.c (main_prog): added argc and argv to the gh_repl() + invocation. + 1997-11-22 Tim Pierce <twp@twp.tezcat.com> * dynl-dl.c (sysdep_dynl_func): Fix memory leak created by diff --git a/libguile/gh.h b/libguile/gh.h index 3ce1532cf..386353bac 100644 --- a/libguile/gh.h +++ b/libguile/gh.h @@ -57,7 +57,7 @@ #endif /* __GNUC__ */ void gh_enter(int argc, char *argv[], void (*c_main_prog)()); -void gh_repl(); +void gh_repl(int argc, char *argv[]); SCM gh_catch(SCM tag, scm_catch_body_t body, void *body_data, scm_catch_handler_t handler, void *handler_data); diff --git a/libguile/gh_init.c b/libguile/gh_init.c index eb6858bd2..84629ebf8 100644 --- a/libguile/gh_init.c +++ b/libguile/gh_init.c @@ -62,7 +62,6 @@ gh_launch_pad (void *closure, int argc, char **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. */ diff --git a/libguile/gh_test_c.c b/libguile/gh_test_c.c index 1dc136dc5..827eb11ec 100644 --- a/libguile/gh_test_c.c +++ b/libguile/gh_test_c.c @@ -233,7 +233,7 @@ c_vector_test (SCM s_length) /* create a vector filled witth 0.0 entries */ xvec = gh_make_vector (s_length, gh_double2scm (0.0)); /* set the second element in it to some floating point value */ - gh_vector_set (xvec, gh_int2scm(2), gh_double2scm (1.9)); + gh_vector_set_x (xvec, gh_int2scm(2), gh_double2scm (1.9)); /* I think I can use == because Scheme's doubles should be the same as C doubles, with no operations in between */ diff --git a/libguile/gh_test_repl.c b/libguile/gh_test_repl.c index 6de48b606..ed9b57e21 100644 --- a/libguile/gh_test_repl.c +++ b/libguile/gh_test_repl.c @@ -101,7 +101,7 @@ main_prog (int argc, char *argv[]) gh_procedure_p (cf), gh_vector_p (cf)); gh_eval_str("(c-vector-test 200)"); - gh_repl (); + gh_repl (argc, argv); } int @@ -151,7 +151,7 @@ c_vector_test (SCM s_length) /* create a vector filled witth 0.0 entries */ xvec = gh_make_vector (s_length, gh_double2scm (0.0)); /* set the second element in it to some floating point value */ - gh_vector_set (xvec, gh_int2scm(2), gh_double2scm (1.9)); + gh_vector_set_x (xvec, gh_int2scm(2), gh_double2scm (1.9)); /* I think I can use == because Scheme's doubles should be the same as C doubles, with no operations in between */ |