From 41a5c74c297469017384895fb08b05272904a4aa Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Wed, 10 Oct 2001 23:28:21 +0000 Subject: [PATCH] * src/gnome/top-level.c (gnc_get_remaining_argv): coerce away guile 1.3.4 warning. (gnc_set_remaining_argv): coerce away guile 1.3.4 warning. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5545 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/gnome/top-level.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/gnome/top-level.c b/src/gnome/top-level.c index 6f12c1eef6..b2085bc0ef 100644 --- a/src/gnome/top-level.c +++ b/src/gnome/top-level.c @@ -142,15 +142,17 @@ static const char* gnc_scheme_remaining_var = "gnc:*command-line-remaining*"; static char** gnc_get_remaining_argv(int prelen, const char **prependargv) { - SCM rem = gh_eval_str (gnc_scheme_remaining_var); - return gnc_scheme_list_to_nulltermcharpp (prelen, prependargv, rem); + /* FIXME: when we drop support older guiles, drop the (char *) coercion. */ + SCM rem = gh_eval_str ((char *) gnc_scheme_remaining_var); + return gnc_scheme_list_to_nulltermcharpp (prelen, prependargv, rem); } static void gnc_set_remaining_argv(int len, const char **rest) { - SCM toput = gnc_argvarr_to_scheme_list(len, rest); - gh_define(gnc_scheme_remaining_var, toput); + SCM toput = gnc_argvarr_to_scheme_list(len, rest); + /* FIXME: when we drop support older guiles, drop the (char *) coercion. */ + gh_define((char *) gnc_scheme_remaining_var, toput); }