Tweak error message.
This commit is contained in:
parent
b78ce4bf62
commit
2214f54ab0
3
os2.rkt
3
os2.rkt
|
@ -479,7 +479,8 @@
|
||||||
(match (run-vm state)
|
(match (run-vm state)
|
||||||
[(transition state actions)
|
[(transition state actions)
|
||||||
(when (not (null? 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 waiting? (null? (vm-pending-actions state)))
|
||||||
(define active-events
|
(define active-events
|
||||||
(for*/fold ([acc '()])
|
(for*/fold ([acc '()])
|
||||||
|
|
Loading…
Reference in New Issue