From 284ef4f0487928ce77cfbbf734a66fe3af274394 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Sat, 4 Jul 2009 15:23:11 +1200
Subject: [PATCH] Made factorize-type and cify-type public

---
 basis/alien/inline/inline.factor | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor
index 7ae530a0a0..cbe8ce8841 100644
--- a/basis/alien/inline/inline.factor
+++ b/basis/alien/inline/inline.factor
@@ -7,6 +7,14 @@ math.order math.ranges multiline namespaces sequences splitting
 strings system vocabs.loader vocabs.parser words ;
 IN: alien.inline
 
+: factorize-type ( str -- str' )
+    "const-" ?head drop
+    "unsigned-" ?head [ "u" prepend ] when
+    "long-" ?head [ "long" prepend ] when ;
+
+: cify-type ( str -- str' )
+    { { CHAR: ~ CHAR: space } } substitute ;
+
 <PRIVATE
 SYMBOL: c-library
 SYMBOL: library-is-c++
@@ -34,14 +42,6 @@ SYMBOL: c-strings
     CHAR: a swap length CHAR: a + [a,b]
     [ 1string ] map ;
 
-: factorize-type ( str -- str' )
-    "const-" ?head drop
-    "unsigned-" ?head [ "u" prepend ] when
-    "long-" ?head [ "long" prepend ] when ;
-
-: cify-type ( str -- str' )
-    { { CHAR: - CHAR: space } } substitute ;
-
 : factor-function ( function types effect -- word quot effect )
     annotate-effect [ c-library get ] 3dip
     [ [ factorize-type ] map ] dip