mred doc repair (PR 8890)

svn: r9858

original commit: 54e696c9d46f19cf3c66ca3562f21871d6c438af
This commit is contained in:
Matthew Flatt 2008-05-15 19:25:39 +00:00
parent 62b75ae797
commit 68c79dd693

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)))
]