Tweak error message.

2012-05-02 13:54:02 -04:00 · 2012-05-02 13:54:02 -04:00 · 2214f54ab0
parent b78ce4bf62
commit 2214f54ab0
1 changed files with 2 additions and 1 deletions
--- a/os2.rkt
+++ b/os2.rkt
@ -479,7 +479,8 @@
    (match (run-vm state)
      [(transition state actions)
       (when (not (null? actions))
-	 (error 'ground-vm "No meta-actions available in ground-vm: ~v" actions))
+	 (error 'ground-vm "Cannot process meta-actions because no further meta-level exists: ~v"
+		actions))
       (define waiting? (null? (vm-pending-actions state)))
       (define active-events
 	 (for*/fold ([acc '()])