X-Git-Url: http://git.dolda2000.com/gitweb/?p=doldaconnect.git;a=blobdiff_plain;f=lib%2Fguile%2Fdolcon-guile.c;fp=lib%2Fguile%2Fdolcon-guile.c;h=553c7d5889efa543e81686486a8a9aa61b0f51bc;hp=f0abc2f17f1d1a9362da525561f820bff6c1692f;hb=84f2822dcf4c4fd40a4e6d7a8a2861a8f7a0bccd;hpb=49518ef3dd460ee8b934ed551bd0b0fde9b58305 diff --git a/lib/guile/dolcon-guile.c b/lib/guile/dolcon-guile.c index f0abc2f..553c7d5 100644 --- a/lib/guile/dolcon-guile.c +++ b/lib/guile/dolcon-guile.c @@ -190,7 +190,7 @@ static SCM scm_dc_intresp(SCM scm_resp) 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); + ret = scm_cons(scm_from_int64(ires->argv[i].val.lnum), ret); break; } }