diff options
Diffstat (limited to 'module/rnrs/base.scm')
-rw-r--r-- | module/rnrs/base.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/module/rnrs/base.scm b/module/rnrs/base.scm index e92089e1d..74fce31dc 100644 --- a/module/rnrs/base.scm +++ b/module/rnrs/base.scm @@ -94,4 +94,24 @@ ((negative? y) (values (- q 1) (+ r y))) (else (values (+ q 1) (+ r y))))))) + (define raise + (@ (rnrs exceptions) raise)) + (define condition + (@ (rnrs conditions) condition)) + (define make-assertion-violation + (@ (rnrs conditions) make-assertion-violation)) + (define make-who-condition + (@ (rnrs conditions) make-who-condition)) + (define make-message-condition + (@ (rnrs conditions) make-message-condition)) + (define make-irritants-condition + (@ (rnrs conditions) make-irritants-condition)) + + (define (assertion-violation who message . irritants) + (raise (condition + (make-assertion-violation) + (make-who-condition who) + (make-message-condition message) + (make-irritants-condition irritants)))) + ) |