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

fixed pr 7771

Browse Source 
svn: r1668
This commit is contained in:
Robby Findler 2005-12-22 12:54:21 +00:00
parent 511d45be58
commit 388b9deff6
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/framework/private/scheme.ss
View File

@ -219,7 +219,7 @@
(let loop ([snips (reverse snips)]) (let loop ([snips (reverse snips)])
(cond (cond
[(null? snips) (void)] [(null? snips) (void)]
[else (send text insert (car snips) pos pos) [else (send text insert (send (car snips) copy) pos pos)
(loop (cdr snips))]))) (loop (cdr snips))])))
(send text end-edit-sequence))) (send text end-edit-sequence)))