syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Avoid serialization problems for exceptions

This commit is contained in:
Tony Garnock-Jones 2017-08-13 22:40:28 -04:00
parent b2e2674f44
commit cb3eee64dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/syndicate/trace/msd.rkt
View File

@ -41,7 +41,7 @@
(hash-set! names (spacetime-space sink) name)
(write-event! source sink 'spawn (format "~a" name))]
[('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)
(when (positive? (length actions))
(write-event! source sink 'actions-produced (length actions)))]