Improvements to scheduling inside blockable event loop

src/main/kotlin/ru/dbotthepony/kstarbound/util/BlockableEventLoop.kt

@@ -107,9 +107,9 @@ open class BlockableEventLoop(name: String) : Thread(name), ScheduledExecutorSer
 
 	private fun eventLoopIteration(): Boolean {
 		var executedAnything = false
-		val next = eventQueue.poll()
+		var next = eventQueue.poll()
 
-		if (next != null) {
+		while (next != null) {
 			executedAnything = true
 
 			try {
@@ -127,24 +127,25 @@ open class BlockableEventLoop(name: String) : Thread(name), ScheduledExecutorSer
 					LOGGER.error("Caught an exception while propagating CompletableFuture to completeExceptionally stage", err)
 				}
 			}
+
+			// keep executing queued tasks until we hit scheduled task deadline
+			if (scheduledQueue.isEmpty() || scheduledQueue.peek()!!.executeAt > System.nanoTime())
+				next = eventQueue.poll()
+			else
+				next = null
 		}
 
 		if (scheduledQueue.isNotEmpty()) {
 			val executed = ObjectArrayList<ScheduledTask<*>>(4)
-			var lastSize: Int
 
-			do {
+			while (scheduledQueue.isNotEmpty() && (isShutdown || scheduledQueue.peek()!!.executeAt <= System.nanoTime())) {
-				lastSize = executed.size
+				executedAnything = true
+				val poll = scheduledQueue.poll()!!
 
-				while (scheduledQueue.isNotEmpty() && (isShutdown || scheduledQueue.peek()!!.executeAt <= System.nanoTime())) {
+				if (poll.perform(isShutdown)) {
-					executedAnything = true
+					executed.add(poll)
-					val poll = scheduledQueue.poll()!!
-
-					if (poll.perform(isShutdown)) {
-						executed.add(poll)
-					}
 				}
-			} while (lastSize != executed.size)
+			}
 
 			scheduledQueue.addAll(executed)
 		}