Dolda2000 GitWeb
/
doldaconnect.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed sockgetremotename.
[doldaconnect.git]
/
lib
/
guile
/
dolcon
/
ui.scm
diff --git
a/lib/guile/dolcon/ui.scm
b/lib/guile/dolcon/ui.scm
index
73828df
..
d6b4354
100644
(file)
--- 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)))
(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)))
)
)
)
)
)
)