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 ; +