cs: fix place root for accounting

Avoid charging a thread for a place's allocation just bacuse it refers to the place.
2020-04-06 09:24:48 -06:00 · 2020-04-06 09:24:48 -06:00 · f673534ad7
commit f673534ad7
parent 0f351dbf29
1 changed files with 1 additions and 1 deletions
--- a/racket/src/thread/custodian.rkt
+++ b/racket/src/thread/custodian.rkt
@ -471,7 +471,7 @@
                                            ;; Charge anything directly reachable from place registers
                                            ;; to the root custodian; that will include scheduled threads,
                                            ;; so they will be known reachable for accounting
-                                            (list (place-host-roots pl))
+                                            (list pl)
                                            ;; Not the root
                                            null)))
                    (let loop ([roots roots]