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

Diff of /guile/guile-core/test-suite/tests/syncase.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mvo, Mon May 21 13:22:18 2001 UTC revision 1.2 by mvo, Mon May 6 18:52:01 2002 UTC
# Line 28  Line 28 
28           (false-if-exception           (false-if-exception
29            (begin (eval '(use-syntax (ice-9 syncase)) (current-module))            (begin (eval '(use-syntax (ice-9 syncase)) (current-module))
30                   #t)))                   #t)))
31    
32    (define-syntax plus
33      (syntax-rules ()
34        ((plus x ...) (+ x ...))))
35    
36    (pass-if "basic syncase macro"
37             (= (plus 1 2 3) (+ 1 2 3)))

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