diff options
Diffstat (limited to 'module/rnrs')
-rw-r--r-- | module/rnrs/base.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/rnrs/base.scm b/module/rnrs/base.scm index b867929fe..4cfd1d1cc 100644 --- a/module/rnrs/base.scm +++ b/module/rnrs/base.scm @@ -175,7 +175,7 @@ (define-syntax assert (syntax-rules () ((_ expression) - (if (not expression) + (or expression (raise (condition (make-assertion-violation) (make-message-condition |