foo

RedPRL · May 19, 2022 · cfc4cf2 · cfc4cf2
1 parent 3d9d352
commit cfc4cf2
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/src/Preorder.ml b/src/Preorder.ml
@@ -66,11 +66,7 @@ struct
 
   let insert x y gph =
     let gph = Prim.add_generator x y gph in
-
-    if has_path x y gph then 
-      let _ = print_string "had_path\n" in 
-      gph 
-    else 
+    if has_path x y gph then gph  else 
       let rec loop bnds gph =
         match bnds with 
         | [] -> gph