From 01e40b61f62db9063fba22168f2ac16e3cebbb8e Mon Sep 17 00:00:00 2001 From: Fredrik Tolf Date: Tue, 4 Dec 2007 17:13:44 +0100 Subject: [PATCH] Need not check for negative tag in dc-ecmd anymore. --- lib/guile/dolcon/ui.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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)) ) ) ) -- 2.11.0