From f7b2e4a155fd2d297bdd0740f0f2329e8fe98e42 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 23 Jul 2009 18:14:07 -0500
Subject: [PATCH] remove call to check-c-name

---
 basis/alien/parser/parser.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index 8e2fe82578..19ab08c03c 100644
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -15,7 +15,7 @@ IN: alien.parser
 : parse-arglist ( parameters return -- types effect )
     [
         2 group [ first2 normalize-c-arg 2array ] map
-        unzip [ "," ?tail drop check-c-name ] map
+        unzip [ "," ?tail drop ] map
     ]
     [ [ { } ] [ 1array ] if-void ]
     bi* <effect> ;
@@ -25,7 +25,7 @@ IN: alien.parser
 
 :: make-function ( return! library function! parameters -- word quot effect )
     return function normalize-c-arg function! return!
-    function check-c-name create-in dup reset-generic
+    function create-in dup reset-generic
     return library function
     parameters return parse-arglist [ function-quot ] dip ;