kernel: fix ?if stack effect

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index 563be7ef430a82fd46aff0d521c733ee16a2eaa4..c9b19c3cfbff142dfb85e838d725671ce0dd4610 100644 (file)
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -184,7 +184,7 @@ DEFER: if
 : ?unless ( ..a default cond: ( ..a default -- ..a new/f ) false: ( ..a default -- ..b ) -- ..b )
     [ transmute ] dip unless ; inline
 
-: ?if ( ..a default cond: ( ..a default -- ..a new/f ) true: ( ..a new -- ..b ) false: ( ..a default -- ..b ) -- ..b )
+: ?if ( ..a default cond: ( default -- new/f ) true: ( ..a new -- ..b ) false: ( ..a default -- ..b ) -- ..b )
     [ transmute ] 2dip if ; inline
 
 ! Cleavers