suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: fix place root for accounting

Browse Source 
Avoid charging a thread for a place's allocation just bacuse it refers
to the place.
This commit is contained in:
Matthew Flatt 2020-04-06 09:24:48 -06:00
parent 0f351dbf29
commit f673534ad7
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/src/thread/custodian.rkt
View File

@ -471,7 +471,7 @@
;; Charge anything directly reachable from place registers ;; Charge anything directly reachable from place registers
;; to the root custodian; that will include scheduled threads, ;; to the root custodian; that will include scheduled threads,
;; so they will be known reachable for accounting ;; so they will be known reachable for accounting
(list (place-host-roots pl)) (list pl)
;; Not the root ;; Not the root
null))) null)))
(let loop ([roots roots] (let loop ([roots roots]