cut commas off of FUNCTION: parameter names in stack effects again

2010-02-28 19:29:53 -08:00 · 2010-02-28 19:29:53 -08:00 · cd17a934ac
parent 9412fe8297
commit cd17a934ac
1 changed files with 1 additions and 1 deletions
--- 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