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

minor bugfix

Browse Source 
svn: r16130
This commit is contained in:
Robby Findler 2009-09-26 15:38:13 +00:00
parent c349d6dc2d
commit cde6f8818b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/private/text.ss
View File

@ -2255,7 +2255,10 @@ WARNING: printf is rebound in the body of the unit to always
(set! unread-start-point (+ unread-start-point inserted-count)) (set! unread-start-point (+ unread-start-point inserted-count))
(insert (if (is-a? str/snp snip%) (insert (if (is-a? str/snp snip%)
(send str/snp copy) (let ([s (send str/snp copy)])
(if (is-a? s snip%)
s
(new snip%)))
str/snp) str/snp)
old-insertion-point old-insertion-point
old-insertion-point old-insertion-point