@@ -198,45 +198,45 @@ type internal 'result Reducer() as reducer =
198198 default _.Statement statement =
199199 match statement with
200200 | ExpressionStatement expr -> reducer.ExpressionStatement expr
201- | Return returns -> reducer.Return returns
202- | Fail fails -> reducer.Fail fails
203- | Let lets -> reducer.Let lets
204- | Mutable mutables -> reducer.Mutable mutables
201+ | ReturnStatement returns -> reducer.ReturnStatement returns
202+ | FailStatement fails -> reducer.FailStatement fails
203+ | LetStatement lets -> reducer.LetStatement lets
204+ | MutableStatement mutables -> reducer.MutableStatement mutables
205205 | SetStatement sets -> reducer.SetStatement sets
206206 | UpdateStatement updates -> reducer.UpdateStatement updates
207- | SetWith withs -> reducer.SetWith withs
208- | If ifs -> reducer.If ifs
209- | Elif elifs -> reducer.Elif elifs
210- | Else elses -> reducer.Else elses
211- | For loop -> reducer.For loop
212- | While whiles -> reducer.While whiles
213- | Repeat repeats -> reducer.Repeat repeats
214- | Until untils -> reducer.Until untils
215- | Within withins -> reducer.Within withins
216- | Apply apply -> reducer.Apply apply
217- | QubitDeclaration decl -> reducer.QubitDeclaration decl
207+ | UpdateWithStatement withs -> reducer.UpdateWithStatement withs
208+ | IfStatement ifs -> reducer.IfStatement ifs
209+ | ElifStatement elifs -> reducer.ElifStatement elifs
210+ | ElseStatement elses -> reducer.ElseStatement elses
211+ | ForStatement loop -> reducer.ForStatement loop
212+ | WhileStatement whiles -> reducer.WhileStatement whiles
213+ | RepeatStatement repeats -> reducer.RepeatStatement repeats
214+ | UntilStatement untils -> reducer.UntilStatement untils
215+ | WithinStatement withins -> reducer.WithinStatement withins
216+ | ApplyStatement apply -> reducer.ApplyStatement apply
217+ | QubitDeclarationStatement decl -> reducer.QubitDeclarationStatement decl
218218 | Statement.Unknown terminal -> reducer.Terminal terminal
219219
220220 abstract ExpressionStatement : expr : ExpressionStatement -> 'result
221221
222222 default _.ExpressionStatement expr =
223223 [ reducer.Expression expr.Expression; reducer.Terminal expr.Semicolon ] |> reduce
224224
225- abstract Return : returns : SimpleStatement -> 'result
225+ abstract ReturnStatement : returns : SimpleStatement -> 'result
226226
227- default _.Return returns = defaultSimpleStatement returns
227+ default _.ReturnStatement returns = defaultSimpleStatement returns
228228
229- abstract Fail : fails : SimpleStatement -> 'result
229+ abstract FailStatement : fails : SimpleStatement -> 'result
230230
231- default _.Fail fails = defaultSimpleStatement fails
231+ default _.FailStatement fails = defaultSimpleStatement fails
232232
233- abstract Let : lets : BindingStatement -> 'result
233+ abstract LetStatement : lets : BindingStatement -> 'result
234234
235- default _.Let lets = defaultBindingStatement lets
235+ default _.LetStatement lets = defaultBindingStatement lets
236236
237- abstract Mutable : mutables : BindingStatement -> 'result
237+ abstract MutableStatement : mutables : BindingStatement -> 'result
238238
239- default _.Mutable mutables = defaultBindingStatement mutables
239+ default _.MutableStatement mutables = defaultBindingStatement mutables
240240
241241 abstract SetStatement : sets : BindingStatement -> 'result
242242
@@ -254,9 +254,9 @@ type internal 'result Reducer() as reducer =
254254 ]
255255 |> reduce
256256
257- abstract SetWith : withs : SetWith -> 'result
257+ abstract UpdateWithStatement : withs : UpdateWithStatement -> 'result
258258
259- default _.SetWith withs =
259+ default _.UpdateWithStatement withs =
260260 [
261261 reducer.Terminal withs.SetKeyword
262262 reducer.Terminal withs.Name
@@ -268,21 +268,21 @@ type internal 'result Reducer() as reducer =
268268 ]
269269 |> reduce
270270
271- abstract If : ifs : ConditionalBlockStatement -> 'result
271+ abstract IfStatement : ifs : ConditionalBlockStatement -> 'result
272272
273- default _.If ifs = defaultConditionalBlockStatement ifs
273+ default _.IfStatement ifs = defaultConditionalBlockStatement ifs
274274
275- abstract Elif : elifs : ConditionalBlockStatement -> 'result
275+ abstract ElifStatement : elifs : ConditionalBlockStatement -> 'result
276276
277- default _.Elif elifs = defaultConditionalBlockStatement elifs
277+ default _.ElifStatement elifs = defaultConditionalBlockStatement elifs
278278
279- abstract Else : elses : BlockStatement -> 'result
279+ abstract ElseStatement : elses : BlockStatement -> 'result
280280
281- default _.Else elses = defaultBlockStatement elses
281+ default _.ElseStatement elses = defaultBlockStatement elses
282282
283- abstract For : loop : For -> 'result
283+ abstract ForStatement : loop : ForStatement -> 'result
284284
285- default _.For loop =
285+ default _.ForStatement loop =
286286 [
287287 reducer.Terminal loop.ForKeyword |> Some
288288 loop.OpenParen |> Option.map reducer.Terminal
@@ -293,22 +293,22 @@ type internal 'result Reducer() as reducer =
293293 |> List.choose id
294294 |> reduce
295295
296- abstract While : whiles : ConditionalBlockStatement -> 'result
296+ abstract WhileStatement : whiles : ConditionalBlockStatement -> 'result
297297
298- default _.While whiles = defaultConditionalBlockStatement whiles
298+ default _.WhileStatement whiles = defaultConditionalBlockStatement whiles
299299
300- abstract Repeat : repeats : BlockStatement -> 'result
300+ abstract RepeatStatement : repeats : BlockStatement -> 'result
301301
302- default _.Repeat repeats = defaultBlockStatement repeats
302+ default _.RepeatStatement repeats = defaultBlockStatement repeats
303303
304- abstract Until : untils : Until -> 'result
304+ abstract UntilStatement : untils : UntilStatement -> 'result
305305
306- default _.Until untils =
306+ default _.UntilStatement untils =
307307 [
308308 reducer.Terminal untils.UntilKeyword
309309 reducer.Expression untils.Condition
310310 match untils.Coda with
311- | UntilCoda .Semicolon semicolon -> reducer.Terminal semicolon
311+ | UntilStatementCoda .Semicolon semicolon -> reducer.Terminal semicolon
312312 | Fixup fixup -> reducer.Fixup fixup
313313 ]
314314 |> reduce
@@ -317,17 +317,17 @@ type internal 'result Reducer() as reducer =
317317
318318 default _.Fixup fixup = defaultBlockStatement fixup
319319
320- abstract Within : withins : BlockStatement -> 'result
320+ abstract WithinStatement : withins : BlockStatement -> 'result
321321
322- default _.Within withins = defaultBlockStatement withins
322+ default _.WithinStatement withins = defaultBlockStatement withins
323323
324- abstract Apply : apply : BlockStatement -> 'result
324+ abstract ApplyStatement : apply : BlockStatement -> 'result
325325
326- default _.Apply apply = defaultBlockStatement apply
326+ default _.ApplyStatement apply = defaultBlockStatement apply
327327
328- abstract QubitDeclaration : decl : QubitDeclaration -> 'result
328+ abstract QubitDeclarationStatement : decl : QubitDeclarationStatement -> 'result
329329
330- default _.QubitDeclaration decl =
330+ default _.QubitDeclarationStatement decl =
331331 [
332332 reducer.Terminal decl.Keyword |> Some
333333 decl.OpenParen |> Option.map reducer.Terminal
0 commit comments