Parent Directory | Revision Log | Patch
revision 1.1 by mvo, Mon May 21 13:22:18 2001 UTC | revision 1.1.2.1 by mvo, Mon May 6 19:10:25 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))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |