| … | |
… | |
| 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) |
|
|
| 11 | (if (macro? form) |
10 | (if (macro? form) |
| 12 | (macro-expand-all (macro-expand form)) |
11 | (macro-expand-all (macro-expand form)) |
| 13 | form)) |
12 | form)) |
| 14 | |
13 | |
| 15 | (define *compile-hook* macro-expand-all) |
14 | (define *compile-hook* macro-expand-all) |
| … | |
… | |
| 865 | |
864 | |
| 866 | ;(load "test.scm") |
865 | ;(load "test.scm") |
| 867 | |
866 | |
| 868 | (load "test.scm") |
867 | (load "test.scm") |
| 869 | |
868 | |
| 870 | (gc-verbose #f) |
869 | (gc-verbose #t) |
| 871 | |
870 | |
