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

2006-03-18 07:37:58 +00:00 · 2006-03-18 07:37:58 +00:00 · 4d55a13461
parent 541a2eb4ec
commit 4d55a13461
1 changed files with 2 additions and 1 deletions
--- a/library/alien/alien-invoke.factor
+++ b/library/alien/alien-invoke.factor
@ -79,7 +79,8 @@ M: alien-invoke stack-reserve*

 : parse-arglist ( return seq -- types stack-effect )
    unpair [
-        " " % [ "," ?tail drop ] map " " join % " -- " % swap %
+        [ "," ?tail drop ] map " " join % " -- " %
+        swap [ ] [ % ] if-void
    ] "" make ;

 : (define-c-word) ( type lib func types stack-effect -- )