Update for recent change
							parent
							
								
									96b5c674ab
								
							
						
					
					
						commit
						a881ce01ae
					
				| 
						 | 
					@ -29,7 +29,7 @@ IN: help.lint
 | 
				
			||||||
: effect-values ( word -- seq )
 | 
					: effect-values ( word -- seq )
 | 
				
			||||||
    stack-effect
 | 
					    stack-effect
 | 
				
			||||||
    [ in>> ] [ out>> ] bi append
 | 
					    [ in>> ] [ out>> ] bi append
 | 
				
			||||||
    [ (stack-picture) ] map
 | 
					    [ dup pair? [ first ] when effect>string ] map
 | 
				
			||||||
    prune natural-sort ;
 | 
					    prune natural-sort ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: contains-funky-elements? ( element -- ? )
 | 
					: contains-funky-elements? ( element -- ? )
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue