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/window-register.c

Browse Source 
(print_check_cb): coerce away guile 1.3.4 warning.
(report_helper): coerce away guile 1.3.4 warning.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5547 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-10-10 23:28:34 +00:00
parent 78092a0c37
commit f89a72e8ae
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/gnome/window-register.c
View File

@ -1199,10 +1199,12 @@ print_check_cb(GtkWidget * widget, gpointer data)
memo = xaccSplitGetMemo(split);
gh_apply(print_check,
SCM_LIST4(gh_str02scm(payee),
/* FIXME: when we drop support older guiles, drop the
(char *) coercions below. */
SCM_LIST4(gh_str02scm((char *) payee),
gh_double2scm(gnc_numeric_to_double (amount)),
gh_ulong2scm(date),
gh_str02scm(memo)));
gh_str02scm((char *) memo)));
}
}
@ -3234,10 +3236,12 @@ report_helper (RegWindow *regData, SCM func, Query *query)
args = SCM_EOL;
arg = gh_str02scm (gnc_split_register_get_credit_string (reg));
/* FIXME: when we drop support older guiles, drop the (char *) coercion. */
arg = gh_str02scm ((char *) gnc_split_register_get_credit_string (reg));
args = gh_cons (arg, args);
arg = gh_str02scm (gnc_split_register_get_debit_string (reg));
/* FIXME: when we drop support older guiles, drop the (char *) coercion. */
arg = gh_str02scm ((char *) gnc_split_register_get_debit_string (reg));
args = gh_cons (arg, args);
str = gnc_reg_get_name (regData, FALSE);