equal
deleted
inserted
replaced
136 |
136 |
137 val ls = rev (snd (chop_while (equal "") (rev res))) |
137 val ls = rev (snd (chop_while (equal "") (rev res))) |
138 val _ = C.trace_msg ctxt (pretty "Result:") ls |
138 val _ = C.trace_msg ctxt (pretty "Result:") ls |
139 |
139 |
140 val _ = null ls andalso return_code <> 0 andalso |
140 val _ = null ls andalso return_code <> 0 andalso |
141 raise SMT_Failure.SMT (SMT_Failure.Solver_Crashed return_code) |
141 raise SMT_Failure.SMT (SMT_Failure.Abnormal_Termination return_code) |
142 in ls end |
142 in ls end |
143 |
143 |
144 end |
144 end |
145 |
145 |
146 fun trace_assms ctxt = C.trace_msg ctxt (Pretty.string_of o |
146 fun trace_assms ctxt = C.trace_msg ctxt (Pretty.string_of o |