X-Git-Url: http://dolda2000.com/gitweb/?a=blobdiff_plain;f=lib%2Fguile%2Fdolcon-guile.c;h=f0abc2f17f1d1a9362da525561f820bff6c1692f;hb=41f6ea31346604323914c66acbb16e5861fe0dcb;hp=e3e6db83d9a18ad269610870a200b4546a0e0486;hpb=8f623b36d661bfcf18b30a088177f6a5131bd1d9;p=doldaconnect.git

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;
 	}
     }