# HG changeset patch # User wenzelm # Date 1600594378 -7200 # Node ID 6931ab4f1a478ca087f0c986bba29049b2fb5833 # Parent 88880eecd7fe302f9dce36237a9f97f0ee2c6116 tuned; diff -r 88880eecd7fe -r 6931ab4f1a47 src/HOL/Library/code_test.ML --- a/src/HOL/Library/code_test.ML Fri Sep 18 12:33:10 2020 +0200 +++ b/src/HOL/Library/code_test.ML Sun Sep 20 11:32:58 2020 +0200 @@ -161,7 +161,7 @@ val (driver, target) = (case get_driver thy compiler of NONE => error ("No driver for target " ^ compiler) - | SOME f => f) + | SOME drv => drv) val debug = Config.get (Proof_Context.init_global thy) overlord val with_dir = if debug then with_overlord_dir else Isabelle_System.with_tmp_dir fun evaluate result = @@ -229,7 +229,7 @@ val failed = filter_out (fst o fst o fst) (result ~~ ts ~~ evals) handle ListPair.UnequalLengths => - error ("Evaluation failed!\nWrong number of test results: " ^ Int.toString (length result)) + error ("Evaluation failed!\nWrong number of test results: " ^ string_of_int (length result)) in (case failed of [] => () @@ -314,7 +314,7 @@ val _ = if res = 0 then () else error ("Evaluation for " ^ compilerN ^ " terminated with error code " ^ - Int.toString res ^ "\nBash output:\n" ^ out) + string_of_int res ^ "\nBash output:\n" ^ out) in out end in run end @@ -496,7 +496,7 @@ val driver_path = Path.append path (Path.basic driverN) val driver = "module Main where {\n" ^ - String.concat (map (fn module => "import qualified " ^ unsuffix ".hs" module ^ ";\n") modules) ^ + implode (map (fn module => "import qualified " ^ unsuffix ".hs" module ^ ";\n") modules) ^ "main = do {\n" ^ " let {\n" ^ " format_term Nothing = \"\";\n" ^ @@ -583,7 +583,7 @@ val target_Scala = "Scala_eval" val target_Haskell = "Haskell_eval" -val _ = Theory.setup +val _ = Theory.setup (Code_Target.add_derived_target (target_Scala, [(Code_Scala.target, I)]) #> Code_Target.add_derived_target (target_Haskell, [(Code_Haskell.target, I)]))