; Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees. See file COPYING.

; The new LOW-EXCEPTIONS in terms of the old SIGNALS

(define signals:error error)
(define signals:note note)

(define (error who message . irritants)
  (apply signals:error message (cons who irritants)))

(define (assertion-violation who message . irritants)
  (error who message irritants))

(define (implementation-restriction-violation who message . irritants)
  (error who message irritants))

(define (warning who message . irritants)
  (apply warn message (cons who irritants)))

(define (syntax-violation who message . irritants)
  (apply syntax-error message (cons message irritants))
  (apply assertion-violation who message irritants)) ; make sure we die

(define (note who message . irritants)
  (apply signals:note message (cons message irritants)))

