diff options
-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 |