From: Fredrik Tolf <fredrik@dolda2000.com>
Date: Tue, 4 Dec 2007 16:13:44 +0000 (+0100)
Subject: Need not check for negative tag in dc-ecmd anymore.
X-Git-Tag: 1.1~30^2
X-Git-Url: http://dolda2000.com/gitweb/?p=doldaconnect.git;a=commitdiff_plain;h=01e40b61f62db9063fba22168f2ac16e3cebbb8e

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
--- 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))
       )
     )
   )