From c278e10673308e2f5a6e0bacb27812614c217df9 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 24 Mar 2012 15:59:15 -0400 Subject: [PATCH] Fix type error --- os2.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/os2.rkt b/os2.rkt index 6ca234f..6e6a833 100644 --- a/os2.rkt +++ b/os2.rkt @@ -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)))