promises: Rename
							parent
							
								
									b22ca7574b
								
							
						
					
					
						commit
						a7a065e315
					
				| 
						 | 
				
			
			@ -4,9 +4,9 @@ USING: accessors arrays effects fry generalizations kernel math
 | 
			
		|||
namespaces parser effects.parser sequences words ;
 | 
			
		||||
IN: promises
 | 
			
		||||
 | 
			
		||||
TUPLE: promise quot forced? value ;
 | 
			
		||||
TUPLE: promise-state quot forced? value ;
 | 
			
		||||
 | 
			
		||||
: promise ( quot -- promise ) f f \ promise boa ;
 | 
			
		||||
: promise ( quot -- promise ) f f \ promise-state boa ;
 | 
			
		||||
 | 
			
		||||
: force ( promise -- value )
 | 
			
		||||
    dup forced?>> [
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue