fix text% inser method on a sigle snip argument

svn: r15002
2009-05-28 12:28:02 +00:00 · 2009-05-28 12:28:02 +00:00 · f63d3cc8fb
commit f63d3cc8fb
parent de0fc2e745
1 changed files with 2 additions and 0 deletions
--- a/collects/mred/private/wxme/text.ss
+++ b/collects/mred/private/wxme/text.ss
@ -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]]