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

adjust changes in 8027e48 so that we see intermediate

Browse Source 
output during flushes instead of collecting the entire
contents of the buffer before flushing (at least in the
more common case)
This commit is contained in:
Robby Findler 2014-11-25 22:15:57 -06:00
parent 0083f1c9ae
commit a12f77f36e
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
pkgs/gui-pkgs/gui-lib/framework/private/text.rkt
View File

@ -2647,21 +2647,24 @@
(split-queue converter q)) (split-queue converter q))
(cond (cond
[flush-keep-trying? [flush-keep-trying?
(cons viable-bytes (loop next-remaining-queue))] (cond
[(channel? return-evt/to-insert-chan)
(cons viable-bytes (loop next-remaining-queue))]
[else
(define c (make-channel))
(queue-insertion viable-bytes c)
(channel-put c #f)
(loop next-remaining-queue)])]
[else [else
(set! remaining-queue next-remaining-queue) (set! remaining-queue next-remaining-queue)
(list viable-bytes)]))) (cond
(cond [(channel? return-evt/to-insert-chan)
[(channel? return-evt/to-insert-chan) (list viable-bytes)]
(channel-put return-evt/to-insert-chan viable-bytess)] [else
[else (queue-insertion viable-bytes return-evt/to-insert-chan)
(let loop ([viable-bytess viable-bytess]) #f])])))
(cond (when (channel? return-evt/to-insert-chan)
[(null? (cdr viable-bytess)) (channel-put return-evt/to-insert-chan viable-bytess))
(queue-insertion (car viable-bytess) return-evt/to-insert-chan)]
[else
(queue-insertion (car viable-bytess) always-evt)
(loop (cdr viable-bytess))]))])
(loop remaining-queue (current-inexact-milliseconds)))) (loop remaining-queue (current-inexact-milliseconds))))
(handle-evt (handle-evt
clear-output-chan clear-output-chan