From 8f8aa3051c02d30693ed81006941d132387226fe Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Sat, 4 Jul 2009 11:28:31 +1200
Subject: [PATCH] alien.inline: factorize-type covers unsigned and long

---
 basis/alien/inline/inline.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor
index 0ca67249da..ba540246b1 100644
--- a/basis/alien/inline/inline.factor
+++ b/basis/alien/inline/inline.factor
@@ -25,7 +25,9 @@ SYMBOL: c-strings
     [ 1string ] map ;
 
 : factorize-type ( str -- str' )
-    "const-" ?head drop ;
+    "const-" ?head drop
+    "unsigned-" ?head [ "u" prepend ] when
+    "long-" ?head [ "long" prepend ] when ;
 
 : cify-type ( str -- str' )
     { { CHAR: ~ CHAR: space } } substitute ;