steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2012-10-23 12:26:14 -07:00
parent 013160df9a
commit 247600df71
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/hashtables/hashtables.factor
View File

@ -24,7 +24,7 @@ TUPLE: hashtable
: (key@) ( key array i probe# -- array n ? ) : (key@) ( key array i probe# -- array n ? )
[ 3dup swap array-nth ] dip over ((empty)) eq? [ 3dup swap array-nth ] dip over ((empty)) eq?
[ drop 3drop no-key ] [ [ 4drop no-key ] [
[ = ] dip swap [ = ] dip swap
[ drop rot drop t ] [ drop rot drop t ]
[ probe (key@) ] [ probe (key@) ]