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

avoid copying bytes when not necessary

Browse Source
This commit is contained in:
Robby Findler 2016-12-19 13:22:44 -06:00
parent 5e70534b43
commit 23f9677e52
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gui-lib/framework/private/text.rkt
View File

@ -3003,7 +3003,12 @@
(cond (cond
[(= start end) (flush-proc)] [(= start end) (flush-proc)]
[else [else
(define pair (cons (subbytes to-write start end) style)) (define pair (cons (if (and (= start 0)
(= end (bytes-length to-write))
(immutable? to-write))
to-write
(subbytes to-write start end))
style))
(cond (cond
[(eq? (current-thread) (eventspace-handler-thread eventspace)) [(eq? (current-thread) (eventspace-handler-thread eventspace))
(define return-channel (make-channel)) (define return-channel (make-channel))