Fixed cify-types bug
parent
577420b7dd
commit
519277a0a0
|
@ -10,7 +10,7 @@ IN: alien.inline.types
|
||||||
"long-" ?head [ "long" prepend ] when ;
|
"long-" ?head [ "long" prepend ] when ;
|
||||||
|
|
||||||
: cify-type ( str -- str' )
|
: cify-type ( str -- str' )
|
||||||
{ { CHAR: ~ CHAR: space } } substitute ;
|
{ { CHAR: - CHAR: space } } substitute ;
|
||||||
|
|
||||||
: const-type? ( str -- ? )
|
: const-type? ( str -- ? )
|
||||||
"const-" head? ;
|
"const-" head? ;
|
||||||
|
|
Loading…
Reference in New Issue