Loosen type on direct arrays since we want to use them on displaced aliens too
							parent
							
								
									da9b38caae
								
							
						
					
					
						commit
						8834f8e041
					
				| 
						 | 
				
			
			@ -20,7 +20,7 @@ SET-NTH [ T dup c-setter array-accessor ]
 | 
			
		|||
WHERE
 | 
			
		||||
 | 
			
		||||
TUPLE: A
 | 
			
		||||
{ underlying simple-alien read-only }
 | 
			
		||||
{ underlying alien read-only }
 | 
			
		||||
{ length fixnum read-only } ;
 | 
			
		||||
 | 
			
		||||
: <A> ( alien len -- direct-array ) A boa ; inline
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue