graphviz: Fix test for rename of rotate!
							parent
							
								
									15d788718f
								
							
						
					
					
						commit
						3fd1d80b83
					
				| 
						 | 
				
			
			@ -42,7 +42,7 @@ SYMBOLS: supported-layouts supported-formats ;
 | 
			
		|||
: graphviz-output-appears-to-exist? ( base -- ? )
 | 
			
		||||
    "." directory-files [ swap head? ] with count 1 = ;
 | 
			
		||||
 | 
			
		||||
: next! ( seq -- elt ) [ first ] [ 1 rotate! ] bi ;
 | 
			
		||||
: next! ( seq -- elt ) [ first ] [ 1 rotate-headwards! ] bi ;
 | 
			
		||||
 | 
			
		||||
:: smoke-test ( graph -- pass? )
 | 
			
		||||
    supported-formats get-global next! :> -T
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue