new accessors
							parent
							
								
									fb27f066b1
								
							
						
					
					
						commit
						6f20caab5a
					
				| 
						 | 
				
			
			@ -4,7 +4,7 @@
 | 
			
		|||
! See http://factorcode.org/license.txt for BSD license.
 | 
			
		||||
USING: kernel combinators fry namespaces quotations hashtables
 | 
			
		||||
sequences assocs arrays stack-checker effects math math.ranges
 | 
			
		||||
generalizations macros continuations random locals ;
 | 
			
		||||
generalizations macros continuations random locals accessors ;
 | 
			
		||||
 | 
			
		||||
IN: combinators.lib
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -63,7 +63,7 @@ IN: combinators.lib
 | 
			
		|||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 | 
			
		||||
 | 
			
		||||
MACRO: preserving ( predicate -- quot )
 | 
			
		||||
    dup infer effect-in
 | 
			
		||||
    dup infer in>>
 | 
			
		||||
    dup 1+
 | 
			
		||||
    '[ , , nkeep , nrot ] ;
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue