TODO update.

[doldaconnect.git] / lib / guile / dolcon-guile.c

diff --git a/lib/guile/dolcon-guile.c b/lib/guile/dolcon-guile.c
index e2de1ce..900345a 100644 (file)
--- a/lib/guile/dolcon-guile.c
+++ b/lib/guile/dolcon-guile.c
@@ -22,7 +22,7 @@ struct scmcb
 };
 
 static int fd = -1;
-static scm_bits_t resptype;
+static scm_t_bits resptype;
 
 static SCM scm_dc_connect(SCM host)
 {
@@ -221,11 +221,11 @@ static SCM scm_dc_qcmd(SCM argv, SCM callback)
     addtobuf(toks, NULL);
     if(callback == SCM_UNDEFINED)
     {
-       tag = dc_queuecmd(NULL, NULL, cmd, L"%%a", toks, NULL);
+       tag = dc_queuecmd(NULL, NULL, cmd, L"%a", toks, NULL);
     } else {
        scmcb = scm_must_malloc(sizeof(*scmcb), "scmcb");
        scm_gc_protect_object(scmcb->subr = callback);
-       tag = dc_queuecmd(qcmd_scmcb, scmcb, cmd, L"%%a", toks, NULL);
+       tag = dc_queuecmd(qcmd_scmcb, scmcb, cmd, L"%a", toks, NULL);
     }
     dc_freewcsarr(toks);
     if(cmd != NULL)