From cd17a934ac1f33b45a218e0f4e036343462e9551 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sun, 28 Feb 2010 19:29:53 -0800
Subject: [PATCH] cut commas off of FUNCTION: parameter names in stack effects
 again

---
 basis/alien/parser/parser.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index f4331b3624..c9ec2c3889 100644
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -80,7 +80,7 @@ PRIVATE>
     type-str end-marker = [
         type-str { "(" ")" } member? [
             type-str parse-c-type :> type
-            scan :> name
+            scan "," ?tail drop :> name
             type name parse-pointers :> ( type' name' )
             type' types push name' names push
         ] unless