From: fredrik <fredrik@959494ce-11ee-0310-bf91-de5d638817bd>
Date: Mon, 30 Oct 2006 05:00:59 +0000 (+0000)
Subject: Make dc-ecmd more error tolerant.
X-Git-Tag: 0.3~196
X-Git-Url: http://dolda2000.com/gitweb/?a=commitdiff_plain;h=ee63cbcbef1dd62fec342c5c60129e3f21011bec;p=doldaconnect.git

Make dc-ecmd more error tolerant.


git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@727 959494ce-11ee-0310-bf91-de5d638817bd
---

diff --git a/lib/guile/dolcon/ui.scm b/lib/guile/dolcon/ui.scm
index 73828df..d6b4354 100644
--- 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)))
       )
     )
   )