From d510723d8e105c105db41193bff718db6ec3bf22 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 3 Sep 2011 11:09:39 -0700
Subject: [PATCH] alien.c-types: fill out the higher-order stack effect of
 if-void

---
 basis/alien/c-types/c-types.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor
index 63c6f72ee6..c3f742b870 100644
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@@ -164,7 +164,7 @@ TUPLE: long-long-type < c-type ;
 : <long-long-type> ( -- c-type )
     long-long-type new ;
 
-: if-void ( c-type true false -- )
+: if-void ( ..a c-type true: ( ..a -- ..b ) false: ( ..a c-type -- ..b ) -- ..b )
     pick void? [ drop nip call ] [ nip call ] if ; inline
 
 SYMBOLS: