alien.parser: method object return-type-name is redundant
parent
ed29fbd93f
commit
dbd716cc99
|
@ -46,6 +46,11 @@ IN: alien.parser.tests
|
|||
{ "ayae" } [ parse-enum-name new-definitions get first in? ] with-parsing
|
||||
] unit-test
|
||||
|
||||
! return-type-name
|
||||
{ "void" } [
|
||||
void return-type-name
|
||||
] unit-test
|
||||
|
||||
>>
|
||||
|
||||
TYPEDEF: char char2
|
||||
|
|
|
@ -74,7 +74,6 @@ ERROR: *-in-c-type-name name ;
|
|||
<PRIVATE
|
||||
GENERIC: return-type-name ( type -- name )
|
||||
|
||||
M: object return-type-name drop "void" ;
|
||||
M: word return-type-name name>> ;
|
||||
M: pointer return-type-name to>> return-type-name CHAR: * suffix ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue