mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
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:
parent
39be7af0f5
commit
56c325a322
@ -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);
|
||||
|
@ -5,6 +5,7 @@
|
||||
|
||||
#include "config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <glib.h>
|
||||
|
@ -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) {
|
||||
|
@ -25,6 +25,7 @@
|
||||
|
||||
#include <glib.h>
|
||||
#include <guile/gh.h>
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
|
||||
#include "gnc-report.h"
|
||||
|
Loading…
Reference in New Issue
Block a user