[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Slib-discuss] Proper way to add one's own "impcat" to Slib
From: |
Aubrey Jaffer |
Subject: |
Re: [Slib-discuss] Proper way to add one's own "impcat" to Slib |
Date: |
Sat, 13 Dec 2008 22:28:53 -0500 (EST) |
| From: Kris De Volder <address@hidden>
| Date: Sat, 13 Dec 2008 09:25:56 -0800
|
| ...
| You are right. It appears I was sloppy writing these tests. Sorry
| about that.
|
| Nevertheless I think it would still be a good idea to add a test
| that exercises the case where no expressions follow the <test>.
|
| (test 25 'do (let ((x '(1 3 5 7 9))
| (sum 0))
| (do ((x x (cdr x)))
| ((null? x))
| (set! sum (+ sum (car x))))
| sum))
|
| This test doesn't assume anything of the value returned by the do
| loop. There currently is no test in r4rstest.scm that doesn't have
| an expression after the test.
Done.