steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed cify-types bug

Jeremy Hughes 2009-07-05 21:02:19 +12:00
parent 819fcb6ef1
commit 638847d17a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/alien/inline/types/types.factor
View File

@ -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? ;