assocs.extras: Move some often-used words to core

[factor.git] / core / hashtables / hashtables.factor

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index 469a7cfc9a2639c097d6a648f65f44b9af948e0a..52a7084d95d01498110089a1c673abd3536d649a 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -26,7 +26,7 @@ TUPLE: hashtable
     [ 3dup swap array-nth ] dip over +empty+ eq?
     [ 4drop no-key ] [
         [ = ] dip swap
-        [ drop rot drop t ]
+        [ roll 2drop t ]
         [ probe (key@) ]
         if
     ] if ; inline recursive