| … | |
… | |
| 5 | ;;;; Utility to ease macro creation |
5 | ;;;; Utility to ease macro creation |
| 6 | (define (macro-expand form) |
6 | (define (macro-expand form) |
| 7 | ((eval (get-closure-code (eval (car form)))) form)) |
7 | ((eval (get-closure-code (eval (car form)))) form)) |
| 8 | |
8 | |
| 9 | (define (macro-expand-all form) |
9 | (define (macro-expand-all form) |
|
|
10 | (display form) |
| 10 | (if (macro? form) |
11 | (if (macro? form) |
| 11 | (macro-expand-all (macro-expand form)) |
12 | (macro-expand-all (macro-expand form)) |
| 12 | form)) |
13 | form)) |
| 13 | |
14 | |
| 14 | (define *compile-hook* macro-expand-all) |
15 | (define *compile-hook* macro-expand-all) |
