From 64aef112b58b11da13653d00290858ca1d733d9c Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Sun, 5 Jul 2009 21:05:17 +1200
Subject: [PATCH] alien.inline: stopped annotate-effect affecting prototype
 strings

---
 basis/alien/inline/inline.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor
index 6f5c2a720d..06aef50aed 100644
--- 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>