A few names for unnamed actors make it clear which actor is faulting

syndicate/examples/gl-2d-platformer.rkt

@@ -672,7 +672,7 @@
 ;; kills the dataspace.
 
 (define (wait-for-level-termination)
-  (spawn
+  (spawn #:name 'wait-for-level-termination
    (assert (outbound (level-running)))
    (on (retracted (game-piece-configuration player-id _ _ _))
        (log-info "Player died! Terminating level.")
@@ -696,7 +696,8 @@
   (define scale (if (> level-aspect scene-aspect) ;; level is wider, proportionally, than scene
                     (/ level-width scene-width)
                     (/ level-height scene-height)))
-  (spawn (assert (outbound
+  (spawn #:name 'background-image
+         (assert (outbound
                   (outbound
                    (sprite 10
                            `((scale ,(* scene-width scale)
@@ -712,7 +713,8 @@
                      #:scene [scene grassland-backdrop]
                      actions-thunk)
   (lambda ()
-    (dataspace (when scene (spawn-background-image level-size-vec scene))
+    (dataspace #:name 'level-dataspace
+               (when scene (spawn-background-image level-size-vec scene))
                (spawn-display-controller level-size-vec)
                (spawn-physics-engine)
                (spawn-player-avatar initial-player-x initial-player-y)
@@ -763,7 +765,8 @@
 (define (spawn-numbered-level level-number)
   (if (< level-number (length levels))
       ((list-ref levels level-number))
-      (spawn (assert (outbound
+      (spawn #:name 'victory-message
+             (assert (outbound
                       (let ((message (text "You won!" 72 "red")))
                         (simple-sprite 0
                                        10
@@ -812,5 +815,6 @@
 (spawn-keyboard-integrator)
 (spawn-scene-manager)
 (spawn-gl-2d-driver #:width 600 #:height 400)
-(dataspace (spawn-score-keeper)
+(dataspace #:name 'game-dataspace
+           (spawn-score-keeper)
            (spawn-level-spawner 0))