IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/gnome/top-level.c

Browse Source 
(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
This commit is contained in:
Rob Browning 2001-10-10 23:28:21 +00:00
parent ce198ef948
commit 41a5c74c29
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gnome/top-level.c
View File

@ -142,7 +142,8 @@ static const char* gnc_scheme_remaining_var = "gnc:*command-line-remaining*";
static char** static char**
gnc_get_remaining_argv(int prelen, const char **prependargv) gnc_get_remaining_argv(int prelen, const char **prependargv)
{ {
SCM rem = gh_eval_str (gnc_scheme_remaining_var); /* 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); return gnc_scheme_list_to_nulltermcharpp (prelen, prependargv, rem);
} }
@ -150,7 +151,8 @@ static void
gnc_set_remaining_argv(int len, const char **rest) gnc_set_remaining_argv(int len, const char **rest)
{ {
SCM toput = gnc_argvarr_to_scheme_list(len, rest); SCM toput = gnc_argvarr_to_scheme_list(len, rest);
gh_define(gnc_scheme_remaining_var, toput); /* FIXME: when we drop support older guiles, drop the (char *) coercion. */
gh_define((char *) gnc_scheme_remaining_var, toput);
} }