mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

fix assert to return true value.

Browse source 
* module/rnrs/base.scm (assert): returns value instead of void.

* test-suite/tests/r6rs-base.test ("assert"): add test cases.
This commit is contained in:
Ian Price 2011-04-06 13:51:44 +01:00 • committed by Andy Wingo
parent cf9d4a8214
commit 15993bce1c
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/rnrs/base.scm
View file

@ -175,7 +175,7 @@
(define-syntax assert
(syntax-rules ()
((_ expression)
(if (not expression)
(or expression
(raise (condition
(make-assertion-violation)
(make-message-condition