From 15993bce1cd0a2e69f11a6ac1725fa7a219c5b7c Mon Sep 17 00:00:00 2001 From: Ian Price Date: Wed, 6 Apr 2011 13:51:44 +0100 Subject: fix assert to return true value. * module/rnrs/base.scm (assert): returns value instead of void. * test-suite/tests/r6rs-base.test ("assert"): add test cases. --- module/rnrs/base.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'module/rnrs') 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 -- cgit v1.2.3