assocs.extras: Fix filter/reject-keys/values stack effects

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 87e1ae45a0daa300c648cfb69e43e0a22d29d4b7..0bbc91d6eaa620a4bc64f9e2e5c790803128fc95 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -78,16 +78,16 @@ IN: assocs.extras
 : map-values ( assoc quot: ( value -- value' ) -- assoc )
     '[ swap _ dip swap ] assoc-map ; inline
 
-: filter-keys ( assoc quot: ( key -- key' ) -- assoc' )
+: filter-keys ( assoc quot: ( key -- ? ) -- assoc' )
     '[ drop @ ] assoc-filter ; inline
 
-: filter-values ( assoc quot: ( value -- value' ) -- assoc' )
+: filter-values ( assoc quot: ( value -- ? ) -- assoc' )
     '[ nip @ ] assoc-filter ; inline
 
-: reject-keys ( assoc quot: ( key -- key' ) -- assoc' )
+: reject-keys ( assoc quot: ( key -- ? ) -- assoc' )
     '[ drop @ ] assoc-reject ; inline
 
-: reject-values ( assoc quot: ( value -- value' ) -- assoc' )
+: reject-values ( assoc quot: ( value -- ? ) -- assoc' )
     '[ nip @ ] assoc-reject ; inline
 
 : rekey-new-assoc ( assoc keys -- newassoc )