From f89a72e8ae642c93cb6d772e66a9c209948695d4 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Wed, 10 Oct 2001 23:28:34 +0000 Subject: [PATCH] * src/gnome/window-register.c (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 --- src/gnome/window-register.c | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/gnome/window-register.c b/src/gnome/window-register.c index 93a0fffa4d..9627afafb9 100644 --- a/src/gnome/window-register.c +++ b/src/gnome/window-register.c @@ -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);