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

fix pasteboard% 'remove' (merge to 4.2.3)

Browse Source 
svn: r16963

original commit: 47c66b71eb0bb85552fe8a07f1ccef42927b9899
This commit is contained in:
Matthew Flatt 2009-11-22 15:43:15 +00:00
parent cb51783238
commit 9b68c7571c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wxme/pasteboard.ss
View File

@ -770,7 +770,7 @@
(snip-set-admin del-snip #f)
(set-snip-flags! del-snip (remove-flag (snip->flags del-snip) CAN-DISOWN))
(unless del
(when (send del-snip get-admin)
(unless (send del-snip get-admin)
(set-snip-flags! del-snip (remove-flag (snip->flags del-snip) OWNED))))
(unless s-modified?