/[guile]/guile/guile-core/test-suite/tests/srfi-34.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/srfi-34.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26