combinators.lib: short-circuit is used by regexp
							parent
							
								
									bdf77814e2
								
							
						
					
					
						commit
						e813ac97c4
					
				| 
						 | 
					@ -63,8 +63,8 @@ MACRO: napply ( n -- )
 | 
				
			||||||
! short circuiting words
 | 
					! short circuiting words
 | 
				
			||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 | 
					! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 | 
				
			||||||
 | 
					
 | 
				
			||||||
! : short-circuit ( quots quot default -- quot )
 | 
					: short-circuit ( quots quot default -- quot )
 | 
				
			||||||
!   1quotation -rot { } map>assoc <reversed> alist>quot ;
 | 
					    1quotation -rot { } map>assoc <reversed> alist>quot ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
! MACRO: && ( quots -- ? )
 | 
					! MACRO: && ( quots -- ? )
 | 
				
			||||||
!     [ [ not ] append [ f ] ] t short-circuit ;
 | 
					!     [ [ not ] append [ f ] ] t short-circuit ;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue