From 247600df710261051ce81135099020544b0f176d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 23 Oct 2012 12:26:14 -0700
Subject: [PATCH] hashtables: use "4drop" instead of "drop 3drop".

---
 core/hashtables/hashtables.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index ee1fcdefa7..4194fc796a 100644
--- 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@) ]