alien.parser: method object return-type-name is redundant

diff --git a/basis/alien/parser/parser-tests.factor b/basis/alien/parser/parser-tests.factor
index 2b10cc48f50c9ce04f2cf088eb94378398c8a163..6fd8dc3cd7babc873b9a4a50da77b06cd0c6fed7 100644 (file)
--- a/basis/alien/parser/parser-tests.factor
+++ b/basis/alien/parser/parser-tests.factor
@@ -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

diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index 610d1fabcadaf09537185e62497b8563f3b7fa59..a0c1bf7f5284822ef8b6c531aad398949e688067 100755 (executable)
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -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 ;