@ -126,7 +126,7 @@
(vm (hash)
(hash)
0
(list->quasi-queue (list (spawn boot #f)))))
(list->quasi-queue (list (cons -1 (spawn boot #f))))))
(define (run-vm state)
(let loop ((remaining-actions (quasi-queue->list (vm-pending-actions state)))