hurr
							parent
							
								
									dd6308ead5
								
							
						
					
					
						commit
						c8eddf89e6
					
				| 
						 | 
				
			
			@ -21,7 +21,7 @@ IN: alien.parser
 | 
			
		|||
    } cond ;
 | 
			
		||||
 | 
			
		||||
: valid-c-type? ( c-type -- ? )
 | 
			
		||||
    { [ array? ] [ c-type-name? ] } 1|| ;
 | 
			
		||||
    { [ array? ] [ c-type-name? ] [ void? ] } 1|| ;
 | 
			
		||||
 | 
			
		||||
: parse-c-type ( string -- type )
 | 
			
		||||
    (parse-c-type) dup valid-c-type? [ no-c-type ] unless ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue