tuned;
authorwenzelm
Sun, 20 Sep 2020 11:32:58 +0200
changeset 72503 6931ab4f1a47
parent 72501 88880eecd7fe
child 72504 b8f32e830e95
tuned;
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)]))