From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 12 Jul 2012 05:15:44 +0000 (-0700)
Subject: assocs.extras: fixing stack effect, inline words.
X-Git-Tag: 0.97~2944
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=2d3f46acf4357bd2a9e7930c77a4b86223530f9a

assocs.extras: fixing stack effect, inline words.
---

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