From b92523f6772c06dbb3d64a87d55bd1853452ea04 Mon Sep 17 00:00:00 2001 From: Mylloon Date: Sun, 12 Nov 2023 19:38:23 +0100 Subject: [PATCH] c bon --- flap/src/hopix/hopixInterpreter.ml | 2 -- 1 file changed, 2 deletions(-) diff --git a/flap/src/hopix/hopixInterpreter.ml b/flap/src/hopix/hopixInterpreter.ml index 402236a..a53799f 100644 --- a/flap/src/hopix/hopixInterpreter.ml +++ b/flap/src/hopix/hopixInterpreter.ml @@ -591,7 +591,6 @@ and or_pattern env pl expression = | None -> or_pattern env pl' expression) and tuple_pattern environment tab tab2 = - (* BOUCLE INFINIE ??? *) if List.length tab = List.length tab2 then ( match tab, tab2 with @@ -605,7 +604,6 @@ and tuple_pattern environment tab tab2 = else None and tagged_pattern cons1 cons2 pattern1 pattern2 environment = - (* BOUCLE INFINIE ??? *) if cons1.value = cons2 then tuple_pattern environment pattern1 pattern2 else None and record_pattern environment r r' =