assocs.extras: Fix value stack effects

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 9a66e6a4750e0d14fe50f39725556dd74a8bac3d..ddbe6a4de1f9289f9c0dd81b673a54b91dd0e07b 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -205,14 +205,14 @@ PRIVATE>
 : assoc-any-key? ( ... assoc quot: ( ... key -- ... ? ) -- ... ? )
     [ drop ] prepose assoc-find 2nip ; inline
 
-: assoc-any-value? ( ... assoc quot: ( ... key -- ... ? ) -- ... ? )
+: assoc-any-value? ( ... assoc quot: ( ... value -- ... ? ) -- ... ? )
     [ nip ] prepose assoc-find 2nip ; inline
 
 : assoc-all-key? ( ... assoc quot: ( ... key -- ... ? ) -- ... ? )
-    [ not ] compose assoc-any-key? not  ; inline
+    [ not ] compose assoc-any-key? not ; inline
 
-: assoc-all-value? ( ... assoc quot: ( ... key -- ... ? ) -- ... ? )
-    [ not ] compose assoc-any-value? not  ; inline
+: assoc-all-value? ( ... assoc quot: ( ... value -- ... ? ) -- ... ? )
+    [ not ] compose assoc-any-value? not ; inline
 
 : any-multi-key? ( assoc -- ? )
     [ sequence? ] assoc-any-key? ;