scheme-libraries/retropikzel/assert.scm

(define-syntax assert
  (syntax-rules ()
    ((_ check val err-msg)
     (unless (check val) (error err-msg val)))))