mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 17:00:23 +02:00
Code Activity

Check cond-expand srfi-34.

Browse source
This commit is contained in:
Kevin Ryde 2003-07-28 23:47:47 +00:00
parent af2cc7198d
commit 68eb63f10f
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/srfi-34.test
View file

@ -37,6 +37,10 @@
(with-test-prefix "SRFI 34" (with-test-prefix "SRFI 34"
(pass-if "cond-expand"
(cond-expand (srfi-34 #t)
(else #f)))
(pass-if "example 1" (pass-if "example 1"
(expr-prints-and-evals-to? (expr-prints-and-evals-to?
'(call-with-current-continuation '(call-with-current-continuation