Lines Matching +refs:expand +refs:syntax
82 (define (expand x level)
86 ((e* reps) (expand (syntax e) (+ level 1))))
87 (syntax ((k e*) reps))))
91 (syntax (t ((t e))))))
94 (with-syntax (((r* (rep ...)) (expand (syntax r) 0))
95 ((t ...) (generate-temporaries (syntax (e ...)))))
96 (syntax ((t ... . r*)
100 (with-syntax (((r* (rep ...)) (expand (syntax r) 0))
101 ((t ...) (generate-temporaries (syntax (e ...)))))
102 (with-syntax ((((t ...) ...) (syntax ((t (... ...)) ...))))
103 (syntax ((t ... ... . r*)
107 (identifier? (syntax k))
108 (or (free-identifier=? (syntax k) (syntax unsyntax))
109 (free-identifier=? (syntax k) (syntax unsyntax-splicing))))
110 (with-syntax (((r* reps) (expand (syntax r) (- level 1))))
111 (syntax ((k . r*) reps))))
113 (with-syntax (((h* (rep1 ...)) (expand (syntax h) level))
114 ((t* (rep2 ...)) (expand (syntax t) level)))
115 (syntax ((h* . t*)
119 (expand (vector->list (syntax #(e ...))) level)))
120 (syntax (#(e* ...) reps))))
122 (syntax (other ())))))
126 (with-syntax (((template* replacements) (expand (syntax template) 0)))
127 (syntax
128 (with-syntax replacements (syntax template*))))))))