parent
							
								
									b3bcf537cc
								
							
						
					
					
						commit
						ca9f74e993
					
				| 
						 | 
				
			
			@ -55,7 +55,9 @@ CONSTANT: aliases H{
 | 
			
		|||
 | 
			
		||||
:: next-time-after ( cronentry timestamp -- )
 | 
			
		||||
 | 
			
		||||
    timestamp 0 >>second 1 minutes (time+) 2drop
 | 
			
		||||
    timestamp second>> 0 > [
 | 
			
		||||
        timestamp 0 >>second 1 minutes (time+) 2drop
 | 
			
		||||
    ] when
 | 
			
		||||
 | 
			
		||||
    timestamp month>> :> month
 | 
			
		||||
    cronentry months>> [ month >= ] find nip [
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue