Changes required for guile 1.6.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7797 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
David Hampton 2003-01-07 06:46:37 +00:00
parent 39be7af0f5
commit 56c325a322
4 changed files with 7 additions and 2 deletions

View File

@ -2166,7 +2166,7 @@ gint64
gnc_scm_to_gint64(SCM num)
{
#if GUILE_LONG_LONG_OK
return scm_num2long_long(num, (char *) SCM_ARG1, "gnc_scm_to_gint64");
return scm_num2long_long(num, SCM_ARG1, "gnc_scm_to_gint64");
#else
static SCM bits00to15_mask = SCM_BOOL_F;
SCM magnitude = scm_abs(num);

View File

@ -5,6 +5,7 @@
#include "config.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <glib.h>

View File

@ -1460,7 +1460,10 @@ gnc_ui_qif_import_commodity_prepare_cb(GnomeDruidPage * page,
/* this shouldn't happen, but DTRT if it does */
if(gh_null_p(wind->new_stocks)) {
printf("somehow got to commodity doc page with nothing to do... BUG!\n");
show_matches = gnc_ui_qif_import_convert(wind);
if (gnc_ui_qif_import_convert(wind))
show_matches = SCM_BOOL_T;
else
show_matches = SCM_BOOL_F;
if(show_matches) {
if(wind->show_doc_pages) {

View File

@ -25,6 +25,7 @@
#include <glib.h>
#include <guile/gh.h>
#include <stdio.h>
#include <string.h>
#include "gnc-report.h"