alien.inline: stopped annotate-effect affecting prototype strings
parent
c32d7c5c97
commit
64aef112b5
|
@ -42,7 +42,7 @@ SYMBOL: c-strings
|
||||||
concat make-function ;
|
concat make-function ;
|
||||||
|
|
||||||
:: marshalled-function ( function types effect -- word quot effect )
|
:: marshalled-function ( function types effect -- word quot effect )
|
||||||
function types effect factor-function
|
function types effect annotate-effect factor-function
|
||||||
[ in>> ]
|
[ in>> ]
|
||||||
[ out>> types [ pointer-to-primitive? ] filter append ]
|
[ out>> types [ pointer-to-primitive? ] filter append ]
|
||||||
bi <effect>
|
bi <effect>
|
||||||
|
|
Loading…
Reference in New Issue