(define-syntax update! (syntax-rules () ((_ var proc) (set! var (proc var)))))
(define a 4)
(update! a add1)
a ; => 5