From dbd716cc99d6d867f1b9410d7de9b0d73ee82f97 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Tue, 9 Aug 2016 12:19:27 +0200
Subject: [PATCH] alien.parser: method object return-type-name is redundant

---
 basis/alien/parser/parser-tests.factor | 5 +++++
 basis/alien/parser/parser.factor       | 1 -
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/basis/alien/parser/parser-tests.factor b/basis/alien/parser/parser-tests.factor
index 2b10cc48f5..6fd8dc3cd7 100644
--- 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 610d1fabca..a0c1bf7f52 100755
--- 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 ;