diff options
Diffstat (limited to 'lib/qparser/qsp_instruction.mly')
| -rw-r--r-- | lib/qparser/qsp_instruction.mly | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/qparser/qsp_instruction.mly b/lib/qparser/qsp_instruction.mly index 8272cff..e8f5a77 100644 --- a/lib/qparser/qsp_instruction.mly +++ b/lib/qparser/qsp_instruction.mly @@ -18,7 +18,7 @@ argument(X): %public inline_action: | a = onliner(ACT) { let loc, label, statements, _, _ = a in - let label = Helper.v label in + let label = Helper.v' label in Analyzer.Instruction.act loc ~label statements } | a = onliner(IF) @@ -30,7 +30,7 @@ argument(X): | Some instructions -> Some ($loc(else_opt), [ instructions ]) in Analyzer.Instruction.if_ loc - (loc_s, Helper.v expr, statements) + (loc_s, Helper.v' expr, statements) ~elifs ~else_ } @@ -42,21 +42,21 @@ argument(X): Analyzer.Instruction.if_ loc - (loc_s, Helper.v expr, statements) + (loc_s, Helper.v' expr, statements) ~elifs ~else_ } single_instruction: | expr = expression { - let expr = Helper.v expr in + let expr = Helper.v' expr in Analyzer.Instruction.expression expr } | e = let_assignation { e } | k = keyword args = argument(expression) { - let args = List.map args ~f:(Helper.v) in + let args = List.map args ~f:(Helper.v') in Analyzer.Instruction.call $loc k args } @@ -69,8 +69,8 @@ let_assignation: op = assignation_operator value = expression { - let variable = Helper.variable variable - and value = Helper.v value in + let variable = Helper.variable' variable + and value = Helper.v' value in Analyzer.Instruction.assign $loc variable op value } |