steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove call to check-c-name

db4
Doug Coleman 2009-07-23 18:14:07 -05:00
parent 9bb38b870c
commit f7b2e4a155
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/alien/parser/parser.factor
View File

@ -15,7 +15,7 @@ IN: alien.parser
: parse-arglist ( parameters return -- types effect ) : parse-arglist ( parameters return -- types effect )
[ [
2 group [ first2 normalize-c-arg 2array ] map 2 group [ first2 normalize-c-arg 2array ] map
unzip [ "," ?tail drop check-c-name ] map unzip [ "," ?tail drop ] map
] ]
[ [ { } ] [ 1array ] if-void ] [ [ { } ] [ 1array ] if-void ]
bi* <effect> ; bi* <effect> ;
@ -25,7 +25,7 @@ IN: alien.parser
:: make-function ( return! library function! parameters -- word quot effect ) :: make-function ( return! library function! parameters -- word quot effect )
return function normalize-c-arg function! return! 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 return library function
parameters return parse-arglist [ function-quot ] dip ; parameters return parse-arglist [ function-quot ] dip ;