mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +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

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