 PRIVATE>
 
 M: char-elt prev-elt
-    drop [ drop -1 +col ] (prev-char) ;
+    drop [ drop -1 +col ] prev ;
 
 M: char-elt next-elt
-    drop [ drop 1 +col ] (next-char) ;
+    drop [ drop 1 +col ] next ;
 
 SINGLETON: one-char-elt
 


M: doc-elt prev-elt 3drop { 0 0 } ;

M: doc-elt next-elt drop nip doc-end ;

M: word-elt prev-elt
    drop
    [ [ [ 1- ] dip blank-at? (prev-word) ] (word-elt) ]
    prev ;

M: word-elt next-elt
    drop
    [ [ blank-at? (next-word) ] (word-elt) ]
    next ;

SINGLETON: one-line-elt

