kernel: Fix ?when/?unless stack effects

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index 29579b977aa62e9f8a83f5df68430ed8fa9d6340..7c4aa5f815420b66ddb8822a77d8ed720c263ea5 100644 (file)
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -181,10 +181,10 @@ DEFER: if
 
 ! Default
 
-: ?when ( ..a default cond: ( ..a default -- ..a new/f ) true: ( ..a new -- ..b ) -- ..b )
+: ?when ( ..a default cond: ( ..a default -- ..a new/f ) true: ( ..a new -- ..a x ) -- ..a default/x )
     [ ?transmute ] dip when ; inline
 
-: ?unless ( ..a default cond: ( ..a default -- ..a new/f ) false: ( ..a default -- ..b ) -- ..b )
+: ?unless ( ..a default cond: ( ..a default -- ..a new/f ) false: ( ..a default -- ..a x ) -- ..a default/x )
     [ ?transmute ] dip unless ; inline
 
 : ?if ( ..a default cond: ( default -- new/f ) true: ( ..a new -- ..b ) false: ( ..a default -- ..b ) -- ..b )