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

Use lists rather than conses, since they travel through dataspaces better

This commit is contained in:
Tony Garnock-Jones 2016-08-31 19:12:05 +01:00
parent 4685d6af46
commit 8249993a86
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/syndicate/trace.rkt
View File

@ -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)

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

@ -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))))]