diff --git a/library/alien/alien-invoke.factor b/library/alien/alien-invoke.factor index d7e3cd5b8e..207e104fa8 100644 --- 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 -- )