expander/eval/api.rkt

4          "../syntax/api.rkt"
5          "../syntax/taint.rkt"
15          eval-syntax
18          compile-syntax
20          expand
21          expand-syntax
23          expand-to-top-form
24          expand-syntax-to-top-form
26          expand-once
27          expand-syntax-once)
37 (define/who eval-syntax
40      (check who syntax? s)
43      (check who syntax? s)
51 (define/who (compile-syntax s)
52   (check who syntax? s)
55 (define/who (expand s [insp (current-code-inspector)])  function
59    (direct:expand (intro s) (current-namespace) #t)))
61 (define/who (expand-syntax s [insp (current-code-inspector)])
62   (check who syntax? s)
66    (direct:expand s (current-namespace) #t)))
68 (define/who (expand-once s [insp (current-code-inspector)])
72    (direct:expand-once (intro s))))
74 (define/who (expand-syntax-once s [insp (current-code-inspector)])
75   (check who syntax? s)
79    (direct:expand-once s)))
81 (define/who (expand-to-top-form s [insp (current-code-inspector)])
85    (direct:expand-to-top-form (intro s))))
87 (define/who (expand-syntax-to-top-form s [insp (current-code-inspector)])
88   (check who syntax? s)
92    (direct:expand-to-top-form s)))
96   (define s (if (syntax? given-s) given-s (datum->syntax #f given-s)))
97   (direct:namespace-syntax-introduce s ns))
102       (syntax-taint s)))