alien.c-types: fill out the higher-order stack effect of if-void

2011-09-03 11:09:39 -07:00 · 2011-09-03 11:09:39 -07:00 · d510723d8e
parent e8340c5196
commit d510723d8e
1 changed files with 1 additions and 1 deletions
--- 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: