| 
									
										
										
										
											2009-01-09 18:58:00 -05:00
										 |  |  | ! Copyright (C) 2008, 2009 Slava Pestov. | 
					
						
							| 
									
										
										
										
											2008-06-30 04:57:00 -04:00
										 |  |  | ! See http://factorcode.org/license.txt for BSD license. | 
					
						
							| 
									
										
										
										
											2009-01-09 18:58:00 -05:00
										 |  |  | USING: accessors math math.parser strings words vocabs | 
					
						
							|  |  |  | kernel effects ;
 | 
					
						
							| 
									
										
										
										
											2008-06-05 01:18:36 -04:00
										 |  |  | IN: present | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | GENERIC: present ( object -- string )
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | M: real present number>string ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | M: string present ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2008-06-28 03:36:20 -04:00
										 |  |  | M: word present name>> ;
 | 
					
						
							| 
									
										
										
										
											2008-06-05 01:18:36 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-01-16 13:47:33 -05:00
										 |  |  | M: vocab-spec present name>> ;
 | 
					
						
							| 
									
										
										
										
											2009-01-09 18:58:00 -05:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2008-06-08 17:47:20 -04:00
										 |  |  | M: effect present effect>string ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2008-06-05 01:18:36 -04:00
										 |  |  | M: f present drop "" ;
 |