Revert a change for guile 1.6. The 64 bit native API changed between

1.4 and 1.6 so this change caused compilation failures for some users.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7801 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
David Hampton 2003-01-08 00:20:28 +00:00
parent e9b93eeccf
commit 11ffa5dd13

View File

@ -2166,7 +2166,8 @@ gint64
gnc_scm_to_gint64(SCM num)
{
#if GUILE_LONG_LONG_OK
return scm_num2long_long(num, SCM_ARG1, "gnc_scm_to_gint64");
// This interface changes in guile 1.6. The second arg becomes an int.
return scm_num2long_long(num, (char *) SCM_ARG1, "gnc_scm_to_gint64");
#else
static SCM bits00to15_mask = SCM_BOOL_F;
SCM magnitude = scm_abs(num);