[r2005-06-09 15:28:55 by afrisch] Begin simplified compilation

Original author: afrisch
Date: 2005-06-09 15:28:55+00:00

driver/cduce.ml

@@ -200,7 +200,7 @@ let debug ppf tenv cenv = function
       Format.fprintf ppf "[DEBUG:compile]@.";
       let t = Typer.typ tenv t
       and pl = List.map (Typer.pat tenv) pl in  
-      Patterns.Compile.debug_compile ppf t pl;
+      Patterns.Compile2.debug_compile ppf t pl;
       Format.fprintf ppf "@.";
 
 (*