Updating code for make and fry changes

[factor.git] / basis / persistent / hashtables / nodes / collision / collision.factor

diff --git a/basis/persistent/hashtables/nodes/collision/collision.factor b/basis/persistent/hashtables/nodes/collision/collision.factor
index 741e3d067a94d048455a9a979351884ef4ef8c2f..2ee4008f2b437ce7e159f474a8ae7cd4bacaade4 100644 (file)
--- a/basis/persistent/hashtables/nodes/collision/collision.factor
+++ b/basis/persistent/hashtables/nodes/collision/collision.factor
@@ -8,7 +8,7 @@ persistent.hashtables.nodes.leaf ;
 IN: persistent.hashtables.nodes.collision
 
 : find-index ( key hashcode collision-node -- n leaf-node )
-    leaves>> -rot '[ [ , , ] dip matching-key? ] find ; inline
+    leaves>> -rot '[ [ _ _ ] dip matching-key? ] find ; inline
 
 M:: collision-node (entry-at) ( key hashcode collision-node -- leaf-node )
     key hashcode collision-node find-index nip ;