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 )
|
||||
name types effect factor-function
|
||||
[ in>> ]
|
||||
[ out>> types [ pointer-to-primitive? ] filter append ]
|
||||
[ out>> types [ pointer-to-non-const-primitive? ] filter append ]
|
||||
bi <effect>
|
||||
[
|
||||
[
|
||||
|
|
Loading…
Reference in New Issue