PR#4971: wrong variable name in alpha/proc.ml; cleanups in lex/cset.mli and bytecomp/lambda.mli

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10268 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

asmcomp/alpha/proc.ml

@@ -208,8 +208,8 @@ let contains_calls = ref false
 let assemble_file infile outfile =
   let as_cmd =
     if digital_asm && !Clflags.gprofile
-    then Config.as ^ " -pg"
-    else Config.as in
+    then Config.asm ^ " -pg"
+    else Config.asm in
   Ccomp.command (as_cmd ^ " -o " ^
                  Filename.quote outfile ^ " " ^ Filename.quote infile)
 

bytecomp/lambda.mli

@@ -175,8 +175,6 @@ val const_unit: structured_constant
 val lambda_unit: lambda
 val name_lambda: lambda -> (Ident.t -> lambda) -> lambda
 val name_lambda_list: lambda list -> (lambda list -> lambda) -> lambda
-val is_guarded: lambda -> bool
-val patch_guarded : lambda -> lambda -> lambda
 
 val iter: (lambda -> unit) -> lambda -> unit
 module IdentSet: Set.S with type elt = Ident.t

lex/cset.mli

@@ -16,7 +16,6 @@
 (* Set of characters encoded as list of intervals *)
 
 type t
-exception Bad
 
 val empty : t
 val is_empty : t -> bool