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

2012-10-23 12:26:14 -07:00 · 2012-10-23 12:26:14 -07:00 · 247600df71
parent 013160df9a
commit 247600df71
1 changed files with 1 additions and 1 deletions
--- 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@) ]