summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2003-07-28 23:47:47 +0000
committerKevin Ryde <user42@zip.com.au>2003-07-28 23:47:47 +0000
commit68eb63f10fbcab0de4e8a339f56c6593ff4c7114 (patch)
treed153761f2d8e9c9cd88c2225872cd03f08fb4eb7
parentaf2cc7198db3f912861b9fa3880ca0455e78807b (diff)
downloadguile-68eb63f10fbcab0de4e8a339f56c6593ff4c7114.tar.gz
Check cond-expand srfi-34.
-rw-r--r--test-suite/tests/srfi-34.test4
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