diff options
| author | Chimrod <> | 2024-02-04 10:37:04 +0100 |
|---|---|---|
| committer | Chimrod <> | 2024-02-08 14:12:45 +0100 |
| commit | 6fd720c07e3e361932e01bfbdbe4637c8f610649 (patch) | |
| tree | 26f983295d8674a08fc9367aaac820c0ace675bc /lib/qparser/parser.mly | |
| parent | 35ef1827a216a1deb6d15f916ff197b0c75bc83e (diff) | |
Added a general context for each test
Diffstat (limited to 'lib/qparser/parser.mly')
| -rw-r--r-- | lib/qparser/parser.mly | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/qparser/parser.mly b/lib/qparser/parser.mly index 861d8b9..9501884 100644 --- a/lib/qparser/parser.mly +++ b/lib/qparser/parser.mly @@ -18,7 +18,7 @@ %} %parameter<Analyzer: Qsp_syntax.S.Analyzer> -%start <(Analyzer.Location.t)>main +%start <(Analyzer.context -> Analyzer.Location.t)>main %on_error_reduce expression instruction unary_operator assignation_operator %% @@ -31,7 +31,7 @@ main: LOCATION_END { let instructions = List.map instructions ~f:(Analyzer.Instruction.v) in - Analyzer.Location.location $loc instructions + fun context -> Analyzer.Location.location context $loc instructions } before_location: |