mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

completing changes to gh_repl and uniform array stuff

Browse source
This commit is contained in:
Mark Galassi 1997-11-25 17:20:23 +00:00
parent ef5d3ae175
commit 5aadf8c195
7 changed files with 693 additions and 225 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/ChangeLog
View file

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

2
libguile/gh.h
View file

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

1
libguile/gh_init.c
View file

@ -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. */

2
libguile/gh_test_c.c
View file

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

4
libguile/gh_test_repl.c
View file

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