From 9d5530f3e4b530a03608870f2336f0cde2344560 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 20 Jul 2012 09:04:04 -0700
Subject: [PATCH] assocs: inline assoc-empty? and make M\ enum at* not check
 bounds twice.

---
 core/assocs/assocs.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index d59b2534ab..0f327b17df 100644
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -108,7 +108,7 @@ M: assoc assoc-clone-like ( assoc exemplar -- newassoc )
     [ delete-at* ] keep [ set-at ] with-assoc [ 2drop ] if ;
 
 : assoc-empty? ( assoc -- ? )
-    assoc-size 0 = ;
+    assoc-size 0 = ; inline
 
 : assoc-stack ( key seq -- value )
     [ length 1 - ] keep (assoc-stack) ; flushable
@@ -235,7 +235,7 @@ C: <enum> enum
 
 M: enum at*
     seq>> 2dup bounds-check?
-    [ nth t ] [ 2drop f f ] if ; inline
+    [ nth-unsafe t ] [ 2drop f f ] if ; inline
 
 M: enum set-at seq>> set-nth ; inline