aboutsummaryrefslogtreecommitdiff
path: root/lib/qparser/qsp_instruction.mly
diff options
context:
space:
mode:
Diffstat (limited to 'lib/qparser/qsp_instruction.mly')
-rw-r--r--lib/qparser/qsp_instruction.mly14
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/qparser/qsp_instruction.mly b/lib/qparser/qsp_instruction.mly
index e8f5a77..b7d2558 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 = Analyzer.Expression.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, Analyzer.Expression.v expr, statements)
~elifs
~else_
}
@@ -42,21 +42,21 @@ argument(X):
Analyzer.Instruction.if_
loc
- (loc_s, Helper.v' expr, statements)
+ (loc_s, Analyzer.Expression.v expr, statements)
~elifs
~else_
}
single_instruction:
| expr = expression
{
- let expr = Helper.v' expr in
+ let expr = Analyzer.Expression.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:(Analyzer.Expression.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 = Analyzer.Expression.v value in
Analyzer.Instruction.assign $loc variable op value
}