Parent Directory | Revision Log | Patch
revision 1.1 by ossau, Wed Apr 30 00:06:33 2003 UTC | revision 1.2 by kryde, Mon Jul 28 23:47:47 2003 UTC | |
---|---|---|
# | Line 37 | Line 37 |
37 | ||
38 | (with-test-prefix "SRFI 34" | (with-test-prefix "SRFI 34" |
39 | ||
40 | (pass-if "cond-expand" | |
41 | (cond-expand (srfi-34 #t) | |
42 | (else #f))) | |
43 | ||
44 | (pass-if "example 1" | (pass-if "example 1" |
45 | (expr-prints-and-evals-to? | (expr-prints-and-evals-to? |
46 | '(call-with-current-continuation | '(call-with-current-continuation |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |