Add change-doc-range combinator

2009-01-25 23:03:13 -06:00 · 2009-01-25 23:03:13 -06:00 · 8a3c0ce2cc
parent f6bc5c0b75
commit 8a3c0ce2cc
1 changed files with 3 additions and 0 deletions
--- a/basis/documents/documents.factor
+++ b/basis/documents/documents.factor
@ -99,6 +99,9 @@ TUPLE: document < model locs ;
        [ [ (set-doc-range) ] keep ] change-model
    ] keep update-locs ;

+: change-doc-range ( from to document quot -- )
+    '[ doc-range @ ] 3keep set-doc-range ; inline
+
 : remove-doc-range ( from to document -- )
    [ "" ] 3dip set-doc-range ;