Avoid serialization problems for exceptions
This commit is contained in:
parent
b2e2674f44
commit
cb3eee64dc
|
@ -41,7 +41,7 @@
|
||||||
(hash-set! names (spacetime-space sink) name)
|
(hash-set! names (spacetime-space sink) name)
|
||||||
(write-event! source sink 'spawn (format "~a" name))]
|
(write-event! source sink 'spawn (format "~a" name))]
|
||||||
[('exit exn-or-false)
|
[('exit exn-or-false)
|
||||||
(write-event! source sink 'exit exn-or-false)]
|
(write-event! source sink 'exit (format "~a" exn-or-false))]
|
||||||
[('actions-produced actions)
|
[('actions-produced actions)
|
||||||
(when (positive? (length actions))
|
(when (positive? (length actions))
|
||||||
(write-event! source sink 'actions-produced (length actions)))]
|
(write-event! source sink 'actions-produced (length actions)))]
|
||||||
|
|
Loading…
Reference in New Issue