Fix docs

diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index f9b4abaada7f53e1621b7a35fa13ea9e91adc72c..cd0b582cb1d51714a1ea837f9a99fa57d1f47878 100755 (executable)
--- a/core/sequences/sequences-docs.factor
+++ b/core/sequences/sequences-docs.factor
@@ -337,7 +337,7 @@ HELP: if-empty
 
 HELP: when-empty
 { $values
-     { "seq" sequence } { "quot1" "the first quotation of an " { $link if-empty } } }
+     { "seq" sequence } { "quot" "the first quotation of an " { $link if-empty } } }
 { $description "Makes an implicit check if the sequence is empty. An empty sequence is dropped and the " { $snippet "quot1" } " is called." }
 { $examples "This word is equivalent to " { $link if-empty } " with an empty second quotation:"
     { $example
@@ -354,8 +354,8 @@ HELP: when-empty
 
 HELP: unless-empty
 { $values
-     { "seq" sequence } { "quot2" "the second quotation of an " { $link if-empty } } }
-{ $description "Makes an implicit check if the sequence is empty. An empty sequence is dropped. Otherwise, the " { $snippet "quot2" } " is called on the sequence.." }
+     { "seq" sequence } { "quot" "the second quotation of an " { $link if-empty } } }
+{ $description "Makes an implicit check if the sequence is empty. An empty sequence is dropped. Otherwise, the " { $snippet "quot2" } " is called on the sequence." }
 { $examples "This word is equivalent to " { $link if-empty } " with an empty first quotation:"
     { $example
     "USING: sequences prettyprint ;"

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 18291aaa7046c134bfd816c45a776039e91e1a89..9be2db3fd7c22be4013606b1d577f58a01753d52 100755 (executable)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -32,9 +32,9 @@ M: sequence shorten 2dup length < [ set-length ] [ 2drop ] if ;
 : if-empty ( seq quot1 quot2 -- )
     [ dup empty? ] [ [ drop ] prepose ] [ ] tri* if ; inline
 
-: when-empty ( seq quot1 -- ) [ ] if-empty ; inline
+: when-empty ( seq quot -- ) [ ] if-empty ; inline
 
-: unless-empty ( seq quot2 -- ) [ ] swap if-empty ; inline
+: unless-empty ( seq quot -- ) [ ] swap if-empty ; inline
 
 : delete-all ( seq -- ) 0 swap set-length ;