From: Fredrik Tolf Date: Thu, 14 Feb 2008 05:25:06 +0000 (+0100) Subject: Ported the Guile library for usage of 64-bit numbers. X-Git-Tag: 1.1~16 X-Git-Url: http://dolda2000.com/gitweb/?p=doldaconnect.git;a=commitdiff_plain;h=41f6ea31346604323914c66acbb16e5861fe0dcb 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 --- 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; } }