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

[factor.git] / core / hash-sets / hash-sets.factor

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index 9b22c403e8e737382496807af8adf74f8800b735..0329bb0d15bad9d5a3843e890780483ebd5ec55c 100644 (file)
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@@ -23,7 +23,7 @@ TUPLE: hash-set
     [ 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