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

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