diff options
author | Ian Price <ianprice90@googlemail.com> | 2011-04-06 13:51:44 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-04-11 18:00:36 +0200 |
commit | 15993bce1cd0a2e69f11a6ac1725fa7a219c5b7c (patch) | |
tree | 68b1243b4771c5e2b6615f467bfa92d0e3c241c0 /module/rnrs/base.scm | |
parent | cf9d4a82146556ff45d40d6eec8579082287900e (diff) | |
download | guile-15993bce1cd0a2e69f11a6ac1725fa7a219c5b7c.tar.gz |
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.
Diffstat (limited to 'module/rnrs/base.scm')
-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 |