hash-sets: back out this change for now.
							parent
							
								
									5f165095dc
								
							
						
					
					
						commit
						30bdecd876
					
				| 
						 | 
				
			
			@ -1,9 +1,9 @@
 | 
			
		|||
! Copyright (C) 2010 Daniel Ehrenberg
 | 
			
		||||
! Copyright (C) 2005, 2011 John Benediktsson, Slava Pestov.
 | 
			
		||||
! See http://factorcode.org/license.txt for BSD license.
 | 
			
		||||
USING: accessors arrays assocs hash-sets hashtables.private
 | 
			
		||||
kernel kernel.private math math.private sequences
 | 
			
		||||
sequences.private sets sets.private slots.private vectors ;
 | 
			
		||||
USING: accessors arrays hash-sets hashtables.private kernel
 | 
			
		||||
kernel.private math math.private sequences sequences.private
 | 
			
		||||
sets sets.private slots.private vectors ;
 | 
			
		||||
IN: hash-sets
 | 
			
		||||
 | 
			
		||||
TUPLE: hash-set
 | 
			
		||||
| 
						 | 
				
			
			@ -163,6 +163,3 @@ PRIVATE>
 | 
			
		|||
 | 
			
		||||
M: sequence all-unique?
 | 
			
		||||
    dup length <hash-set> [ (all-unique?) ] curry all? ;
 | 
			
		||||
 | 
			
		||||
M: hash-set >alist
 | 
			
		||||
    array>> dup zip ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue