fix alien.inline tests
parent
1f04ed01fe
commit
e02d480b43
|
@ -2,10 +2,11 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors alien.c-types assocs combinators.short-circuit
|
USING: accessors alien.c-types assocs combinators.short-circuit
|
||||||
continuations effects fry kernel math memoize sequences
|
continuations effects fry kernel math memoize sequences
|
||||||
splitting strings peg.ebnf make ;
|
splitting strings peg.ebnf make words ;
|
||||||
IN: alien.inline.types
|
IN: alien.inline.types
|
||||||
|
|
||||||
: cify-type ( str -- str' )
|
: cify-type ( str -- str' )
|
||||||
|
dup word? [ name>> ] when
|
||||||
{ { CHAR: - CHAR: space } } substitute ;
|
{ { CHAR: - CHAR: space } } substitute ;
|
||||||
|
|
||||||
: factorize-type ( str -- str' )
|
: factorize-type ( str -- str' )
|
||||||
|
|
Loading…
Reference in New Issue