source: project/chicken/trunk/tests/meta-syntax-test.scm @ 12961

Last change on this file since 12961 was 12961, checked in by felix winkelmann, 11 years ago

build fixes, meta-syntax testing

  • Property svn:executable set to *
File size: 245 bytes
Line 
1(module foo (bar)
2  (import scheme chicken)
3  (import-for-syntax matchable)
4  (begin-for-syntax
5   (define (baz x) 
6     (match x
7       ((_ y) (list y)))))
8  (define-syntax (bar x r c)
9    `(,(r 'print) (,(r 'list) (baz (list 1 ,(cadr x)))))))
Note: See TracBrowser for help on using the repository browser.