[racket] a little macro exercise

Here is yet another solution.
The focus of this one is not to be short, but rather to provide
error messages that refer to cas-cad-e and not to constructs
that cas-cad-e expands to.

Extra tests are provided.

-- 
Jens Axel Søgaard
-------------- next part --------------
A non-text attachment was scrubbed...
Name: cas-cad-e-test.rkt
Type: application/octet-stream
Size: 1755 bytes
Desc: not available
URL: <http://lists.racket-lang.org/users/archive/attachments/20101009/9528ed31/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: cas-cad-e.rkt
Type: application/octet-stream
Size: 2792 bytes
Desc: not available
URL: <http://lists.racket-lang.org/users/archive/attachments/20101009/9528ed31/attachment-0001.obj>