fix bootstrap errors on windows
							parent
							
								
									2e07897cfc
								
							
						
					
					
						commit
						0a99342f2b
					
				| 
						 | 
				
			
			@ -57,7 +57,7 @@ unless
 | 
			
		|||
 | 
			
		||||
: family-tree ( definition -- definitions )
 | 
			
		||||
    dup parent>> [ family-tree ] [ { } ] if*
 | 
			
		||||
    swap add ;
 | 
			
		||||
    swap suffix ;
 | 
			
		||||
 | 
			
		||||
: family-tree-functions ( definition -- functions )
 | 
			
		||||
    dup parent>> [ family-tree-functions ] [ { } ] if*
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,5 +1,6 @@
 | 
			
		|||
USING: alien alien.syntax alien.c-types alien.strings math
 | 
			
		||||
kernel sequences windows windows.types combinators.lib ;
 | 
			
		||||
kernel sequences windows windows.types combinators.lib
 | 
			
		||||
math.order ;
 | 
			
		||||
IN: windows.ole32
 | 
			
		||||
 | 
			
		||||
LIBRARY: ole32
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue