(define (raise-error loc msg . args)
  (signal (make-composite-condition
          (make-property-condition 'exn 'message msg 'location loc 'arguments args)
          (make-property-condition 'accounting)
          (make-property-condition 'transaction))))