Add set-elt-string

db4
Slava Pestov 2009-01-11 23:51:41 -06:00
parent 2b2f95e711
commit 78fe3effa5
1 changed files with 3 additions and 0 deletions
basis/documents

View File

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