summaryrefslogtreecommitdiff
path: root/libguile/gh_test_repl.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gh_test_repl.c')
-rw-r--r--libguile/gh_test_repl.c4
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 */