… | |
… | |
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) |