Improve error reporting on turn reuse

This commit is contained in:
Tony Garnock-Jones 2021-06-08 09:30:04 +02:00
parent 98486667f4
commit 5d1e266ea3
1 changed files with 2 additions and 1 deletions

View File

@ -301,7 +301,8 @@
(define (turn-enqueue! turn f action)
(define qs (turn-queues turn))
(when (not qs) (error 'turn-enqueue! "Attempt to reuse a committed turn"))
(when (not qs)
(error 'turn-enqueue! "Attempt to reuse a committed turn in facet ~a" (turn-active-facet turn)))
(hash-update! qs f (lambda (actions) (cons action actions)) '()))
(define (turn-ref turn entity [attenuation '()])