; (decf! struct-field c)
; (struct-field-set! x (- (struct-field x) 1))
(define-syntax decf!
 (syntax-rules ()
  ((_ x field)
   (decf! x field 1))
  ((_ x field delta)
   (,(string->symbol (conc (field "-set!"))) x (- (field x) delta)))))