From 4d55a13461a0a766d6dea3bfa3c2d3fab064f70d Mon Sep 17 00:00:00 2001 From: slava Date: Sat, 18 Mar 2006 07:37:58 +0000 Subject: [PATCH] Don't show "void" in alien-invoke stack effects --- library/alien/alien-invoke.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- )