Merge branch 'master' of git://factorcode.org/git/factor
						commit
						e1c8279127
					
				| 
						 | 
				
			
			@ -3,7 +3,8 @@ kernel math namespaces parser prettyprint sequences strings
 | 
			
		|||
tools.test vectors words quotations classes classes.algebra
 | 
			
		||||
classes.private classes.union classes.mixin classes.predicate
 | 
			
		||||
vectors definitions source-files compiler.units growable
 | 
			
		||||
random inference effects kernel.private sbufs math.order ;
 | 
			
		||||
random inference effects kernel.private sbufs math.order
 | 
			
		||||
classes.tuple ;
 | 
			
		||||
IN: classes.algebra.tests
 | 
			
		||||
 | 
			
		||||
\ class< must-infer
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -43,8 +43,7 @@ M: builtin-class (classes-intersect?)
 | 
			
		|||
    } cond ;
 | 
			
		||||
 | 
			
		||||
M: anonymous-intersection (flatten-class)
 | 
			
		||||
    participants>>
 | 
			
		||||
    participants [ flatten-builtin-class ] map
 | 
			
		||||
    participants>> [ flatten-builtin-class ] map
 | 
			
		||||
    dup empty? [
 | 
			
		||||
        drop builtins get sift [ (flatten-class) ] each
 | 
			
		||||
    ] [
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue