Add change-doc-range combinator

diff --git a/basis/documents/documents.factor b/basis/documents/documents.factor
index 466e84677adc2b27d7ca0d336e9d20485fcfd88d..01bbae02b36b2a298073f4c1268b477afb66b7bc 100644 (file)
--- 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 ;