Here is the standard way (I think it's found in several places on site):
Normal@Series[
A /. v : Alternatives @@ Variables[A] :> v $t, {$t, 0,
1}] /. $t -> 1
(* -1 + a + b *)
Michael E2
- 262.2k
- 21
- 371
- 838