Updated coq_cw.ml

Author: monadius

src/coq_cw.ml

@@ -92,7 +92,7 @@ let locate_constant r =
   try
     let gr = Smartlocate.locate_global_with_alias r in
     match gr with
-    | Globnames.ConstRef cst -> cst
+    | Names.GlobRef.ConstRef cst -> cst
     | _ -> CErrors.user_err (str "A constant is expected: " ++ Printer.pr_global gr)
   with Not_found -> CErrors.user_err (str "Not found: " ++ Libnames.pr_qualid r)
 

src/g_coq_cw.mlg

@@ -66,7 +66,7 @@ VERNAC COMMAND EXTEND CWFileNegMatch CLASSIFIED AS QUERY
     }
 END
 
-VERNAC COMMAND EXTEND CWCompileAndRun CLASSIFIED AS SIDEFF
+VERNAC COMMAND EXTEND CWCompileAndRun CLASSIFIED AS QUERY
 | [ "CWCompileAndRun" string_list(files) "Options" string_opt(options) "Driver" string(driver) ] -> {
         Coq_cw.compile_and_run files ?options driver
     }