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 ;