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/app-utils/option-util.c

Browse Source 
(gnc_option_db_register_change_callback): coerce away guile 1.3.4
warning.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5517 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-10-10 23:22:20 +00:00
parent 76412ff0ce
commit 00c6a58c55
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/app-utils/option-util.c
View File

@ -397,16 +397,26 @@ gnc_option_db_register_change_callback(GNCOptionDB *odb,
/* next the name */
if (name == NULL)
{
arg = SCM_BOOL_F;
}
else
arg = gh_str02scm(name);
{
/* FIXME: when we drop support older guiles, drop the (char *) coercion. */
arg = gh_str02scm((char *) name);
}
args = gh_cons(arg, args);
/* next the section */
if (section == NULL)
{
arg = SCM_BOOL_F;
}
else
arg = gh_str02scm(section);
{
/* FIXME: when we drop support older guiles, drop the (char *) coercion. */
arg = gh_str02scm((char *) section);
}
args = gh_cons(arg, args);
/* now apply the procedure */