assocs.extras: fixing stack effect, inline words.

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index d788ff6ce5bfdd7920db463bc17b584e3177d959..54e28e8c02bc26f3c7e76a7fee6cacb147db2832 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -12,12 +12,12 @@ IN: assocs.extras
     [ nip ] assoc-filter ; inline
 
 : deep-at ( assoc seq -- value/f )
-    [ swap at ] each ;
+    [ swap at ] each ; inline
 
-: zip-as ( keys values exemplar -- assocs )
+: zip-as ( keys values exemplar -- assoc )
     dup sequence? [
         [ 2array ] swap 2map-as
     ] [
         [ dup length ] dip new-assoc
         [ [ set-at ] with-assoc 2each ] keep
-    ] if ;
+    ] if ; inline