alien.inline: stopped annotate-effect affecting prototype strings

2009-07-05 21:05:17 +12:00 · 2009-07-05 21:05:17 +12:00 · 64aef112b5
parent c32d7c5c97
commit 64aef112b5
1 changed files with 1 additions and 1 deletions
--- a/basis/alien/inline/inline.factor
+++ b/basis/alien/inline/inline.factor
@ -42,7 +42,7 @@ SYMBOL: c-strings
    concat make-function ;

 :: marshalled-function ( function types effect -- word quot effect )
-    function types effect factor-function
+    function types effect annotate-effect factor-function
    [ in>> ]
    [ out>> types [ pointer-to-primitive? ] filter append ]
    bi <effect>