1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Mike Sperber
; 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 form . maybe-subform)
(apply syntax-error message (cons message (cons form maybe-subform))))
(define (note who message . irritants)
(apply signals:note message (cons message irritants)))
|
