Fix type error

This commit is contained in:
Tony Garnock-Jones 2012-03-24 15:59:15 -04:00
parent 8154ecbc0e
commit c278e10673
1 changed files with 1 additions and 1 deletions

View File

@ -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)))