hashtables: use "4drop" instead of "drop 3drop".

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index ee1fcdefa77445e6a58899891ca3908d82943329..4194fc796a636dd77b55c66b6767ffc1bf52da7f 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -24,7 +24,7 @@ TUPLE: hashtable
 
 : (key@) ( key array i probe# -- array n ? )
     [ 3dup swap array-nth ] dip over ((empty)) eq?
-    [ drop 3drop no-key ] [
+    [ 4drop no-key ] [
         [ = ] dip swap
         [ drop rot drop t ]
         [ probe (key@) ]