diff options
author | Kevin Ryde <user42@zip.com.au> | 2003-07-28 23:47:47 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2003-07-28 23:47:47 +0000 |
commit | 68eb63f10fbcab0de4e8a339f56c6593ff4c7114 (patch) | |
tree | d153761f2d8e9c9cd88c2225872cd03f08fb4eb7 | |
parent | af2cc7198db3f912861b9fa3880ca0455e78807b (diff) | |
download | guile-68eb63f10fbcab0de4e8a339f56c6593ff4c7114.tar.gz |
Check cond-expand srfi-34.
-rw-r--r-- | test-suite/tests/srfi-34.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/tests/srfi-34.test b/test-suite/tests/srfi-34.test index b2d4139da..d8f1521c2 100644 --- a/test-suite/tests/srfi-34.test +++ b/test-suite/tests/srfi-34.test @@ -37,6 +37,10 @@ (with-test-prefix "SRFI 34" + (pass-if "cond-expand" + (cond-expand (srfi-34 #t) + (else #f))) + (pass-if "example 1" (expr-prints-and-evals-to? '(call-with-current-continuation |