: function-types-effect ( -- function types effect )
scan scan swap ")" parse-tokens
- [ "(" subseq? not ] filter swap parse-arglist ;
+ [ "(" subseq? ] reject swap parse-arglist ;
: prototype-string ( function types effect -- str )
[ [ cify-type ] map ] dip
: compile-c-library ( -- )
compile-library? [ compile-library ] when
- c-library get dup library-path "cdecl" add-library ;
+ c-library get dup library-path cdecl add-library ;
: define-c-function ( function types effect body -- )
[