Ticket #1083: m1.scm

File m1.scm, 357 bytes (added by Alan Post, 8 years ago)

m1.scm

Line 
1(module m1
2  (make-f1 f1)
3
4(import scheme)
5(import chicken)
6(import-for-syntax scheme)
7(import-for-syntax chicken)
8
9(begin-for-syntax (use m0))
10
11(define-syntax make-f1
12  (ir-macro-transformer
13    (lambda (form rename compare?)
14      (let-values (((a b) (values -1 -2)))
15        `(define (f1 x)
16           (list ,a x ,(f0 b (cadr form))))))))
17
18(make-f1 10))