steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add change-doc-range combinator

db4
Slava Pestov 2009-01-25 23:03:13 -06:00
parent f6bc5c0b75
commit 8a3c0ce2cc
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/documents/documents.factor
View File

@ -99,6 +99,9 @@ TUPLE: document < model locs ;
[ [ (set-doc-range) ] keep ] change-model [ [ (set-doc-range) ] keep ] change-model
] keep update-locs ; ] keep update-locs ;
: change-doc-range ( from to document quot -- )
'[ doc-range @ ] 3keep set-doc-range ; inline
: remove-doc-range ( from to document -- ) : remove-doc-range ( from to document -- )
[ "" ] 3dip set-doc-range ; [ "" ] 3dip set-doc-range ;