original commit: 5b862c32b245c151fe69d1b10dae614dd58aacc9
This commit is contained in:
Matthew Flatt 2005-04-30 15:55:21 +00:00
parent 1f2b12c7d2
commit 06a3d84e18

View File

@ -300,7 +300,7 @@
[(special . is-a? . wx:snip%) [(special . is-a? . wx:snip%)
(force-text) (force-text)
(send text insert special pos) (send text insert special pos)
(set! pos (send special get-count))] (set! pos (+ pos (send special get-count)))]
[else [else
(display special port)])) (display special port)]))
#t) #t)