make conditions added by C-Keen on Tue Jan 10 15:59:39 2023

(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))))