assocs: fix map>alist and docs.

diff --git a/core/assocs/assocs-docs.factor b/core/assocs/assocs-docs.factor
index 31df46f52c4650f0a8913c1941ce291f612699d1..2320768f596c0e2295164c37ac1461f4af19536d 100644 (file)
--- a/core/assocs/assocs-docs.factor
+++ b/core/assocs/assocs-docs.factor
@@ -473,7 +473,7 @@ HELP: map>assoc
 { $description "Applies the quotation to each element of the sequence, and collects the keys and values into a new assoc having the same type as " { $snippet "exemplar" } "." } ;
 
 HELP: map>alist
-{ $values { "seq" sequence } { "quot" { $quotation ( ... elt -- ... key value ) } } { "assoc" "a new assoc" } }
+{ $values { "seq" sequence } { "quot" { $quotation ( ... elt -- ... key value ) } } { "alist" "a new alist" } }
 { $description "Applies the quotation to each element of the sequence, and collects the keys and values into a new alist." } ;
 
 { map>assoc map>alist } related-words

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index eb64445798e7a193e19e46e5e89c13ec57bff0ab..9e82bc817b17778aeb2654bb3d38619e547a65fb 100644 (file)
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -201,7 +201,7 @@ M: assoc values [ nip ] { } assoc>map ;
         [ [ swapd set-at ] curry compose each ] keep
     ] if ; inline
 
-: map>alist ( ... seq quot: ( ... elt -- ... key value ) exemplar -- ... alist )
+: map>alist ( ... seq quot: ( ... elt -- ... key value ) -- ... alist )
     { } map>assoc ; inline
 
 : extract-keys ( seq assoc -- subassoc )