diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-28 19:26:41 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-28 19:26:41 +0200 |
commit | e3eb667a3715cc39dfd1bc313c3078cac484e414 (patch) | |
tree | 8652d25095291e57b3ed9875362a115b4db1a655 /src/smtlib2/smtlib2_solver.ml | |
parent | 1a8548f8ac3773bc7179d286262373a6433687ea (diff) | |
parent | be486d634803e7bdfd455e58dbe3ed0968798eda (diff) | |
download | smtcoq-e3eb667a3715cc39dfd1bc313c3078cac484e414.tar.gz smtcoq-e3eb667a3715cc39dfd1bc313c3078cac484e414.zip |
Merge branch 'coq-8.11' of github.com:smtcoq/smtcoq into coq-8.12
Diffstat (limited to 'src/smtlib2/smtlib2_solver.ml')
-rw-r--r-- | src/smtlib2/smtlib2_solver.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/smtlib2/smtlib2_solver.ml b/src/smtlib2/smtlib2_solver.ml index 99538ce..efab1c1 100644 --- a/src/smtlib2/smtlib2_solver.ml +++ b/src/smtlib2/smtlib2_solver.ml @@ -73,7 +73,7 @@ let read_response { lexbuf } = let error s sexp = kill s; - Structures.error (asprintf "Solver error: %a." SExpr.print sexp) + CoqInterface.error (asprintf "Solver error: %a." SExpr.print sexp) let read_success s = @@ -89,7 +89,7 @@ let read_check_result s = match SExprParser.sexp SExprLexer.main s.lexbuf with | SExpr.Atom "sat" -> Sat | SExpr.Atom "unsat" -> Unsat - | SExpr.Atom "unknown" -> Structures.error ("Solver returned uknown.") + | SExpr.Atom "unknown" -> CoqInterface.error ("Solver returned uknown.") | r -> error s r @@ -111,7 +111,7 @@ let send_command s cmd read = * let buf = Bytes.create err_p2 in * Unix.read s.stderr buf 0 err_p2 |> ignore; * let err_msg = Bytes.sub_string buf err_p1 len in - * Structures.error ("Solver error: "^err_msg); + * CoqInterface.error ("Solver error: "^err_msg); * end * else (kill s; raise e) *) kill s; raise e |