Need not check for negative tag in dc-ecmd anymore.
authorFredrik Tolf <fredrik@dolda2000.com>
Tue, 4 Dec 2007 16:13:44 +0000 (17:13 +0100)
committerFredrik Tolf <fredrik@dolda2000.com>
Tue, 4 Dec 2007 16:13:44 +0000 (17:13 +0100)
lib/guile/dolcon/ui.scm

index bf57b06..b8ec63f 100644 (file)
 (define-public dc-ecmd
   (lambda args
     (let ((tag (dc-qcmd args)))
 (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))
       )
     )
   )
       )
     )
   )