Source

mutated_ocaml / testsuite / tests / basic / recvalues.ml

Diff from to

testsuite/tests/basic/recvalues.ml

   then print_string "Test 1: passed\n"
   else print_string "Test 1: FAILED\n";
   let one = 1 in
-  let rec y = (one, one+1) :: y in  
+  let rec y = (one, one+1) :: y in
   if match y with
        (1,2) :: y' -> y == y'
      | _ -> false