Typos
parent
105ac40bd6
commit
b4ba61d73d
|
@ -92,7 +92,7 @@ module Sys = struct
|
|||
match Sys.command command with
|
||||
| 0 -> ()
|
||||
| _ as exitcode ->
|
||||
Printf.eprintf "Sysem command %s failed with status %d\n%!"
|
||||
Printf.eprintf "System command %s failed with status %d\n%!"
|
||||
command exitcode;
|
||||
exit 3
|
||||
|
||||
|
|
|
@ -36,7 +36,7 @@ rule token = parse
|
|||
| "*/" { TSL_END_C_STYLE }
|
||||
| "(*" blank* "TEST" { TSL_BEGIN_OCAML_STYLE }
|
||||
| "*)" { TSL_END_OCAML_STYLE }
|
||||
| "," { COMA }
|
||||
| "," { COMMA }
|
||||
| '*'+ { TEST_DEPTH (String.length (Lexing.lexeme lexbuf)) }
|
||||
| "+=" { PLUSEQUAL }
|
||||
| "=" { EQUAL }
|
||||
|
|
|
@ -33,7 +33,7 @@ let mkenvstmt envstmt =
|
|||
|
||||
%token TSL_BEGIN_C_STYLE TSL_END_C_STYLE
|
||||
%token TSL_BEGIN_OCAML_STYLE TSL_END_OCAML_STYLE
|
||||
%token COMA
|
||||
%token COMMA
|
||||
%token <int> TEST_DEPTH
|
||||
%token EQUAL PLUSEQUAL
|
||||
/* %token COLON */
|
||||
|
@ -67,7 +67,7 @@ with_environment_modifiers:
|
|||
|
||||
opt_environment_modifiers:
|
||||
| { [] }
|
||||
| opt_environment_modifiers COMA identifier { $3::$1 }
|
||||
| opt_environment_modifiers COMMA identifier { $3::$1 }
|
||||
|
||||
env_item:
|
||||
| identifier EQUAL string
|
||||
|
|
Loading…
Reference in New Issue