summaryrefslogtreecommitdiff
path: root/libguile
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
parentef5d3ae17549e4da69dbbba316f5722a5d2f9ea0 (diff)
downloadguile-5aadf8c195a19fb2026e07633c1feaffc5f76d60.tar.gz
completing changes to gh_repl and uniform array stuff
Diffstat (limited to 'libguile')
-rw-r--r--libguile/ChangeLog10
-rw-r--r--libguile/gh.h2
-rw-r--r--libguile/gh_init.c1
-rw-r--r--libguile/gh_test_c.c2
-rw-r--r--libguile/gh_test_repl.c4
5 files changed, 14 insertions, 5 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index febe9144a..42efc5c3b 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+1997-11-25 Mark Galassi <rosalia@cygnus.com>
+
+ * gh_test_repl.c (main_prog): changed invocation of gh_repl() to
+ gh_repl (argc, argv).
+
1997-11-24 Mark Galassi <rosalia@nis.lanl.gov>
* gh_init.c (gh_repl): modified gh_repl() to accept argc and argv
@@ -6,6 +11,11 @@
since it is probably best to let the user control that. In fact,
gh_repl() now invokes scm_shell() which does that.
+1997-11-23 Mark Galassi <rosalia@cygnus.com>
+
+ * gh_test_repl.c (main_prog): added argc and argv to the gh_repl()
+ invocation.
+
1997-11-22 Tim Pierce <twp@twp.tezcat.com>
* dynl-dl.c (sysdep_dynl_func): Fix memory leak created by
diff --git a/libguile/gh.h b/libguile/gh.h
index 3ce1532cf..386353bac 100644
--- a/libguile/gh.h
+++ b/libguile/gh.h
@@ -57,7 +57,7 @@
#endif /* __GNUC__ */
void gh_enter(int argc, char *argv[], void (*c_main_prog)());
-void gh_repl();
+void gh_repl(int argc, char *argv[]);
SCM gh_catch(SCM tag, scm_catch_body_t body, void *body_data,
scm_catch_handler_t handler, void *handler_data);
diff --git a/libguile/gh_init.c b/libguile/gh_init.c
index eb6858bd2..84629ebf8 100644
--- a/libguile/gh_init.c
+++ b/libguile/gh_init.c
@@ -62,7 +62,6 @@ gh_launch_pad (void *closure, int argc, char **argv)
exit (0);
}
-
/* starts up the Scheme interpreter, and stays in it. c_main_prog()
is the address of the user's main program, since gh_enter() never
returns. */
diff --git a/libguile/gh_test_c.c b/libguile/gh_test_c.c
index 1dc136dc5..827eb11ec 100644
--- a/libguile/gh_test_c.c
+++ b/libguile/gh_test_c.c
@@ -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 */
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 */