Add dc_checkprotocol and DC_LATEST.

[doldaconnect.git] / lib / guile / dolcon / ui.scm

diff --git a/lib/guile/dolcon/ui.scm b/lib/guile/dolcon/ui.scm
index 73828df..d6b4354 100644 (file)
--- a/lib/guile/dolcon/ui.scm
+++ b/lib/guile/dolcon/ui.scm
@@ -47,9 +47,10 @@
 (define-public dc-ecmd
   (lambda args
     (let ((tag (dc-qcmd args)))
-      (do ((resp (dc-getresp tag) (dc-getresp tag)))
-         (resp resp)
-       (dc-select))
+      (if (>= tag 0)
+         (do ((resp (dc-getresp tag) (dc-getresp tag)))
+             (resp resp)
+           (dc-select)))
       )
     )
   )