From 68eb63f10fbcab0de4e8a339f56c6593ff4c7114 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Mon, 28 Jul 2003 23:47:47 +0000 Subject: [PATCH] Check cond-expand srfi-34. --- test-suite/tests/srfi-34.test | 4 ++++ 1 file changed, 4 insertions(+) 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