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/gh_test_repl.c | |
parent | ef5d3ae17549e4da69dbbba316f5722a5d2f9ea0 (diff) | |
download | guile-5aadf8c195a19fb2026e07633c1feaffc5f76d60.tar.gz |
completing changes to gh_repl and uniform array stuff
Diffstat (limited to 'libguile/gh_test_repl.c')
-rw-r--r-- | libguile/gh_test_repl.c | 4 |
1 files changed, 2 insertions, 2 deletions
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 */ |