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

fix text% inser method on a sigle snip argument

Browse Source 
svn: r15002
This commit is contained in:
Matthew Flatt 2009-05-28 12:28:02 +00:00
parent de0fc2e745
commit f63d3cc8fb
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1696,6 +1696,8 @@
[(make-alts exact-nonnegative-integer? (symbol-in same)) [end 'same]]
[any? [scroll-ok? #t]])
(do-insert #f (substring str 0 len) #f start end scroll-ok?)]
[([snip% snip])
(do-insert snip #f #f startpos endpos #t)]
[([snip% snip]
[exact-nonnegative-integer? [start startpos]]
[(make-alts exact-nonnegative-integer? (symbol-in same)) [end 'same]]