summaryrefslogtreecommitdiff
path: root/libguile/gh_test_repl.c
diff options
context:
space:
mode:
authorMark Galassi <mark+savannah@galassi.org>1997-11-25 17:20:23 +0000
committerMark Galassi <mark+savannah@galassi.org>1997-11-25 17:20:23 +0000
commit5aadf8c195a19fb2026e07633c1feaffc5f76d60 (patch)
tree0f973ec99580e3990acf02219f3f4cdab9703d5e /libguile/gh_test_repl.c
parentef5d3ae17549e4da69dbbba316f5722a5d2f9ea0 (diff)
downloadguile-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.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 */