From 2d3f46acf4357bd2a9e7930c77a4b86223530f9a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 11 Jul 2012 22:15:44 -0700
Subject: [PATCH] assocs.extras: fixing stack effect, inline words.

---
 extra/assocs/extras/extras.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index d788ff6ce5..54e28e8c02 100644
--- 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