Permalink
Browse files

[cleanup] Base: remove log_error

  • Loading branch information...
1 parent 0091b78 commit 34d11e640d4a24ac68dac8bcf4a9b342dc3646e6 Raja committed Jun 23, 2011
Showing with 2 additions and 10 deletions.
  1. +0 −2 libbase/base.ml
  2. +0 −6 libbase/base.mli
  3. +2 −2 teerex/trx_interpreter.ml
View
2 libbase/base.ml
@@ -101,7 +101,5 @@ module String = BaseString
module Utf8 = BaseUtf8
(* deprecated *)
-let jlog ?long:_ ?color:_ ?level:_ s = Printf.eprintf "DEPRECATED JLOG: %s" s
-let log_error = jlog
let error = failwith
let warning ?level:_ s = Printf.eprintf "DEPRECATED WARNING: %s" s
View
6 libbase/base.mli
@@ -147,12 +147,6 @@ val sprintf : ('a, unit, string) format -> 'a
(**
deprecated jlog. is implemented with function [ignore]
*)
-val log_error :
- ?long:bool ->
- ?color:Ansi.color ->
- ?level:int ->
- string -> unit
-
val warning : ?level:int -> string -> unit
(**
View
4 teerex/trx_interpreter.ml
@@ -207,7 +207,7 @@ let parse peg input =
StringMap.find id peg.T.grammar
with
Not_found ->
- Base.log_error (pr "Could not find a definition for the production: %s" id);
+ log "Could not find a definition for the production: %s" id;
raise Not_found
in
@@ -534,4 +534,4 @@ let _ =
| `analyze_memo -> analyze_memo peg
with
| Pgrammar.GrammarParse _err ->
- Base.log_error (pr "Failed while parsing the input grammar: {%s}!\n" grammarFn)
+ log "Failed while parsing the input grammar: {%s}!\n" grammarFn

0 comments on commit 34d11e6

Please sign in to comment.