Merge branch 'cleanup'

diff --combined core/combinators/combinators-docs.factor
index f2bfdf1bfdba2d671787d0f6cb1010121ad45de5,6e29b608099dd3d21341afe7a8bbda92a429b1b4..ecfdcf93f196a961af8aa640c1a141aac9204947
--- 1/core/combinators/combinators-docs.factor
--- 2/core/combinators/combinators-docs.factor
+++ b/core/combinators/combinators-docs.factor
@@@ -346,7 -346,7 +346,7 @@@ HELP: cas
  { $description
      "Compares " { $snippet "obj" } " against the first element of every pair, first evaluating the first element if it is a word. If some pair matches, removes " { $snippet "obj" } " from the stack and calls the second element of that pair, which must be a quotation."
      $nl
-     "If there is no case matching " { $snippet "obj" } ", the default case is taken. If the last element of " { $snippet "cases" } " is a quotation, the quotation is called with " { $snippet "obj" } " on the stack. Otherwise, a " { $link no-cond } " error is raised."
+     "If there is no case matching " { $snippet "obj" } ", the default case is taken. If the last element of " { $snippet "assoc" } " is a quotation, the quotation is called with " { $snippet "obj" } " on the stack. Otherwise, a " { $link no-cond } " error is raised."
      $nl
      "The following two phrases are equivalent:"
      { $code "{ { X [ Y ] } { Z [ T ] } } case" }
@@@ -396,7 -396,7 +396,7 @@@ $n
  HELP: distribute-buckets
  { $values { "alist" "an alist" } { "initial" object } { "quot" { $quotation "( obj -- assoc )" } } { "buckets" "a new array" } }
  { $description "Sorts the entries of " { $snippet "assoc" } " into buckets, using the quotation to yield a set of keys for each entry. The hashcode of each key is computed, and the entry is placed in all corresponding buckets. Each bucket is initially cloned from " { $snippet "initial" } "; this should either be an empty vector or a one-element vector containing a pair." }
 -{ $notes "This word is used in the implemention of " { $link hash-case-quot } " and " { $link standard-combination } "." } ;
 +{ $notes "This word is used in the implementation of " { $link hash-case-quot } " and " { $link standard-combination } "." } ;
  
  HELP: dispatch ( n array -- )
  { $values { "n" "a fixnum" } { "array" "an array of quotations" } }