Improve error reporting on turn reuse
This commit is contained in:
parent
98486667f4
commit
5d1e266ea3
|
@ -301,7 +301,8 @@
|
||||||
|
|
||||||
(define (turn-enqueue! turn f action)
|
(define (turn-enqueue! turn f action)
|
||||||
(define qs (turn-queues turn))
|
(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)) '()))
|
(hash-update! qs f (lambda (actions) (cons action actions)) '()))
|
||||||
|
|
||||||
(define (turn-ref turn entity [attenuation '()])
|
(define (turn-ref turn entity [attenuation '()])
|
||||||
|
|
Loading…
Reference in New Issue