mred doc repair (PR 8890)

svn: r9858
This commit is contained in:
Matthew Flatt 2008-05-15 19:25:39 +00:00
parent 5205f45c50
commit 54e696c9d4

View File

@ -150,8 +150,8 @@ Applications that use the editor classes typically derive new versions
(define append-only-text%
(class text%
(inherit #,(:: text% last-position))
(define/override (#,(:: text% can-insert?) s l) (= s #,(:: text% last-position)))
(define/override (#,(:: text% can-delete?) s l) #f)
(define/augment (#,(:: text% can-insert?) s l) (= s (#,(:: text% last-position))))
(define/augment (#,(:: text% can-delete?) s l) #f)
(super-new)))
]