assocs: inline assoc-empty? and make M\ enum at* not check bounds twice.

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index d59b2534ab936e660668c0505bc97026f80df3bf..0f327b17df0b553ed7df98bd28b0ef9ee364cd88 100644 (file)
--- 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