From ee63cbcbef1dd62fec342c5c60129e3f21011bec Mon Sep 17 00:00:00 2001 From: fredrik Date: Mon, 30 Oct 2006 05:00:59 +0000 Subject: [PATCH] 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 --- lib/guile/dolcon/ui.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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))) ) ) ) -- 2.11.0