Attention une mise à jour du service Gitlab va être effectuée le mardi 18 janvier (et non lundi 17 comme annoncé précédemment) entre 18h00 et 18h30. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

Commit 3d3c7d9f authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Temporary state where [rhs] and [rhs2] are checked to return the same thing.

According to a very limited demo in calc-incremental, this seems to work.
parent 6ae2f4f8
......@@ -193,8 +193,10 @@ module MakeInspection (T : TableFormat.INSPECTION_TABLES) = struct
List.map decode_symbol rhs
let rhs prod =
let _ = rhs2 prod in
T.production_defs.(prod)
let answer1 : T.xsymbol list = rhs2 prod in
let answer2 : T.xsymbol list = T.production_defs.(prod) in
assert (Printf.fprintf stderr "I AM HERE\n%!"; answer1 = answer2);
answer2
(* This is a copy of [Item.export]. *)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment