Need not check for negative tag in dc-ecmd anymore.

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