diff --git a/racket/syndicate/trace.rkt b/racket/syndicate/trace.rkt index ffcbb9b..e39962e 100644 --- a/racket/syndicate/trace.rkt +++ b/racket/syndicate/trace.rkt @@ -26,7 +26,7 @@ ;; The trace-notification-detail field is used differently for each ;; NotificationType: ;; -- 'turn-begin and 'turn-end --> Process -;; -- 'spawn --> (cons PID Process), the parent's PID and the process' initial state +;; -- 'spawn --> (list PID Process), the parent's PID and the process' initial state ;; -- 'exit --> Option Exception ;; -- 'action --> (U Event 'quit) (notably, spawns are handled otherwise) ;; -- 'event --> Event @@ -74,7 +74,7 @@ ;; PID PID Process (define (trace-actor-spawn parent-pid pid p) - (notify! (current-actor-path-rev) (cons-pid pid) 'spawn (cons (cons-pid parent-pid) p))) + (notify! (current-actor-path-rev) (cons-pid pid) 'spawn (list (cons-pid parent-pid) p))) ;; PID (Option Exception) (define (trace-actor-exit pid maybe-exn) diff --git a/racket/syndicate/trace/stderr.rkt b/racket/syndicate/trace/stderr.rkt index 66774ea..09aa5e9 100644 --- a/racket/syndicate/trace/stderr.rkt +++ b/racket/syndicate/trace/stderr.rkt @@ -112,7 +112,7 @@ (with-color BLUE (output "~a turn ends\n" (format-pids sink name)) (syndicate-pretty-print state (current-error-port))))] - [('spawn (cons parent (process name _beh state))) + [('spawn (list parent (process name _beh state))) (when show-lifecycle? (with-color BRIGHT-GREEN (output "~a spawned by ~a\n" (format-pids sink name) (format-pids parent))))]