| 
									
										
										
										
											2009-04-29 20:39:04 -04:00
										 |  |  | USING: kernel sequences prettyprint memory tools.test ;
 | 
					
						
							| 
									
										
										
										
											2009-08-13 20:21:44 -04:00
										 |  |  | IN: compiler.tests.pic-problem-1 | 
					
						
							| 
									
										
										
										
											2009-04-29 20:39:04 -04:00
										 |  |  | 
 | 
					
						
							|  |  |  | TUPLE: x ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | M: x length drop 0 ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | INSTANCE: x sequence | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | << gc >> | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | CONSTANT: blah T{ x } | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-08-13 20:21:44 -04:00
										 |  |  | [ T{ x } ] [ blah ] unit-test |