Ported the Guile library for usage of 64-bit numbers.

diff --git a/lib/guile/dolcon-guile.c b/lib/guile/dolcon-guile.c
index e3e6db8..f0abc2f 100644 (file)
--- a/lib/guile/dolcon-guile.c
+++ b/lib/guile/dolcon-guile.c
@@ -184,10 +184,13 @@ static SCM scm_dc_intresp(SCM scm_resp)
            ret = scm_cons(scm_makfrom0str(icswcstombs(ires->argv[i].val.str, "UTF-8", NULL)), ret);
            break;
        case 2:
-           ret = scm_cons(scm_int2num(ires->argv[i].val.num), ret);
+           ret = scm_cons(scm_from_int(ires->argv[i].val.num), ret);
            break;
        case 3:
-           ret = scm_cons(scm_double2num(ires->argv[i].val.flnum), ret);
+           ret = scm_cons(scm_from_double(ires->argv[i].val.flnum), ret);
+           break;
+       case 4:
+           ret = scm_cons(scm_from_int64(ires->argv[i].val.num), ret);
            break;
        }
     }