Add set-elt-string
parent
2b2f95e711
commit
78fe3effa5
basis/documents
|
@ -150,6 +150,9 @@ GENERIC: next-elt ( loc document elt -- newloc )
|
|||
: elt-string ( loc document elt -- string )
|
||||
[ prev/next-elt ] [ drop ] 2bi doc-range ;
|
||||
|
||||
: set-elt-string ( string loc document elt -- )
|
||||
[ prev/next-elt ] [ drop ] 2bi set-doc-range ;
|
||||
|
||||
SINGLETON: char-elt
|
||||
|
||||
: (prev-char) ( loc document quot -- loc )
|
||||
|
|
Loading…
Reference in New Issue