fixed a bug that caused a leak that held onto drracket frames.
The bug was that the planet log message registration was happening on drracket's thread instead of on the user's thread, so it was using the wrong keys in the ephemerons.
This commit is contained in:
parent
d879f75152
commit
c123a8cc5d
|
@ -1320,15 +1320,17 @@ TODO
|
|||
(initialize-parameters snip-classes))))
|
||||
|
||||
|
||||
;; register drscheme with the planet-terse-register for the user's namespace
|
||||
;; must be called after 'initialize-parameters' is called (since it initializes
|
||||
;; the user's namespace)
|
||||
(planet-terse-set-key (gensym))
|
||||
(planet-terse-register
|
||||
(lambda (tag package)
|
||||
(parameterize ([current-eventspace drracket:init:system-eventspace])
|
||||
(queue-callback (λ () (new-planet-info tag package))))))
|
||||
|
||||
(queue-user/wait
|
||||
(λ ()
|
||||
;; register drscheme with the planet-terse-register for the user's namespace
|
||||
;; must be called after 'initialize-parameters' is called (since it initializes
|
||||
;; the user's namespace)
|
||||
(planet-terse-set-key (namespace-module-registry (current-namespace)))
|
||||
(planet-terse-register
|
||||
(lambda (tag package)
|
||||
(parameterize ([current-eventspace drracket:init:system-eventspace])
|
||||
(queue-callback (λ () (new-planet-info tag package))))))))
|
||||
|
||||
;; disable breaks until an evaluation actually occurs
|
||||
(send context set-breakables #f #f)
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user