Ticket #1083: m1.scm
| File m1.scm, 357 bytes (added by , 9 years ago) |
|---|
| 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)) |
