sequences: more accurate docs for >underlying<

diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index 040c173705f2591523a9ab637fe36e2ec7ae7a28..cfd37cccba86c03ae21510d91a02fed95d89bcaf 100644 (file)
--- a/core/sequences/sequences-docs.factor
+++ b/core/sequences/sequences-docs.factor
@@ -857,8 +857,8 @@ HELP: >slice<
 
 HELP: >underlying<
 { $values
-    { "slice/seq" object }
-    { "i" integer } { "n" integer }
+    { "slice/seq" { $or slice sequence } }
+    { "from" integer } { "to" integer }
 }
 { $description "Sets up the stack for iteration with slots from a " { $link sequence } ". Used with iteration in words such as " { $link sequence-operator } "." } ;
 

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index f9aba3804b710157b30c3690c94137f783971347..c10d4dbe6636d4befb0c625a977f5c3f21a57610 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -292,7 +292,7 @@ ERROR: integer-length-expected obj ;
 : length-sequence ( seq -- n seq )
     [ length check-length ] [ ] bi ; inline
 
-: >underlying< ( slice/seq -- i n slice/seq )
+: >underlying< ( slice/seq -- from to slice/seq )
     dup slice? [ >slice< ] [ >sequence< ] if ; inline
 
 TUPLE: copier