hash-sets: simplify <hash-set>.
							parent
							
								
									63514bbbf8
								
							
						
					
					
						commit
						8c07160aa9
					
				| 
						 | 
					@ -87,7 +87,7 @@ TUPLE: hash-set
 | 
				
			||||||
PRIVATE>
 | 
					PRIVATE>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: <hash-set> ( capacity -- hash-set )
 | 
					: <hash-set> ( capacity -- hash-set )
 | 
				
			||||||
    hash-set new [ reset-hash ] keep ; inline
 | 
					    [ 0 0 ] dip <hash-array> hash-set boa ; inline
 | 
				
			||||||
 | 
					
 | 
				
			||||||
M: hash-set in?
 | 
					M: hash-set in?
 | 
				
			||||||
     key@ 2nip ;
 | 
					     key@ 2nip ;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue