Also send a line from the queue on c_flush
authorGerd Flaig <gefla@truhe.meka2009.de>
Sat, 17 Jan 2009 18:27:52 +0000 (19:27 +0100)
committerGerd Flaig <gefla@truhe.meka2009.de>
Sat, 17 Jan 2009 18:27:52 +0000 (19:27 +0100)
empire.lisp

index eb75bfcf77d9ee1b3838a2d08bea733ba97b2927..7f6eb3156cd3ed22861101dcdbeddaff292ddfb0 100644 (file)
 
 (defmethod handle-flush ((m play-mode) message)
   (let* ((c (connection m)))
-    (empire-web:prompt (session c) message)))
+    (empire-web:prompt (session c) message)
+    (send-next-line c)))
 
 (defmethod send-next-line ((c connection))
   (send-message-one c (locked-queue:dequeue (send-queue c))))