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