make a copy of the snip before writing it to the port

since snips will silently fail to be inserted when
they are already inserted and some ports just take
snips and insert them into editors without copying
them first

closes PR 13960
This commit is contained in:
Robby Findler 2013-08-08 15:48:47 -05:00
parent ce7cb703ea
commit 69eafff8a1

View File

@ -460,10 +460,10 @@
;; do this computation here so that any failures
;; during drawing happen under the user's custodian
(image-core:compute-image-cache value)
(write-special value port)
(write-special (send value copy) port)
1]
[else
(write-special value port)
(write-special (send value copy) port)
1])]
[(pict:convertible? value)
(write-special (mk-pict-snip value))]