こんな感じでいいのかな？

(define (a-plus-abs-b a b)
  ((if (> b 0) + -) a b))



(a-plus-abs-b 1 2)
(a-plus-abs-b 1 0)
(a-plus-abs-b 5 -10)
;b がプラスの時は +
;b がマイナスの場合、マイナス演算子として作用する、