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

Don't show "void" in alien-invoke stack effects

release
slava 2006-03-18 07:37:58 +00:00
parent 541a2eb4ec
commit 4d55a13461
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/alien/alien-invoke.factor
View File

@ -79,7 +79,8 @@ M: alien-invoke stack-reserve*
: parse-arglist ( return seq -- types stack-effect ) : parse-arglist ( return seq -- types stack-effect )
unpair [ unpair [
" " % [ "," ?tail drop ] map " " join % " -- " % swap % [ "," ?tail drop ] map " " join % " -- " %
swap [ ] [ % ] if-void
] "" make ; ] "" make ;
: (define-c-word) ( type lib func types stack-effect -- ) : (define-c-word) ( type lib func types stack-effect -- )