: (^n) ( z w -- z^w )
dup fixnum? [ (^fixnum) ] [ (^bignum) ] if ; inline
-GENERIC# ^n 1 ( z w -- z^w ) foldable
+GENERIC#: ^n 1 ( z w -- z^w ) foldable
M: fixnum ^n (^n) ;
DEFER: copysign
-GENERIC# ldexp 1 ( x exp -- y )
+GENERIC#: ldexp 1 ( x exp -- y )
M: float ldexp
over fp-special? [ over zero? ] unless* [ drop ] [