alien.marshall.syntax: fix marshalled-function
							parent
							
								
									17e2c9f91c
								
							
						
					
					
						commit
						eef0ef9068
					
				| 
						 | 
					@ -9,7 +9,7 @@ IN: alien.marshall.syntax
 | 
				
			||||||
:: marshalled-function ( name types effect -- word quot effect )
 | 
					:: marshalled-function ( name types effect -- word quot effect )
 | 
				
			||||||
    name types effect factor-function
 | 
					    name types effect factor-function
 | 
				
			||||||
    [ in>> ]
 | 
					    [ in>> ]
 | 
				
			||||||
    [ out>> types [ pointer-to-primitive? ] filter append ]
 | 
					    [ out>> types [ pointer-to-non-const-primitive? ] filter append ]
 | 
				
			||||||
    bi <effect>
 | 
					    bi <effect>
 | 
				
			||||||
    [
 | 
					    [
 | 
				
			||||||
        [
 | 
					        [
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue