:art: Make vm_running recursive

diff --git a/src/vm/vm.c b/src/vm/vm.c
index c3456ae8beeece1def606785eeabe053b64cfe4c..f251ca8afe3b1d8b19e93fa2c334105fc669e92a 100644 (file)
--- a/src/vm/vm.c
+++ b/src/vm/vm.c
@@ -79,9 +79,11 @@ ANN void vm_unlock(VM *vm) {
 }
 
 ANN m_bool vm_running(VM *vm) {
-  do if(!vm->shreduler->bbq->is_running) return 0;
-  while((vm = vm->parent));
-  return 1;
+  if(!vm->shreduler->bbq->is_running)
+    return 0;
+  if(!vm->parent)
+    return 1;
+  return vm->shreduler->bbq->is_running = vm_running(vm->parent);
 }
 
 ANN static void vm_fork(VM* src, const VM_Shred shred) {