# HG changeset patch
# User wenzelm
# Date 1600624814 -7200
# Node ID 48254fa33d885291f240ce295318adba667523c4
# Parent  dfe150a246e6ebac168427beeec689e81c7a2e84
proper ml_source: avoid duplicate Bash.string;

diff -r dfe150a246e6 -r 48254fa33d88 src/HOL/Library/code_test.ML
--- a/src/HOL/Library/code_test.ML	Sun Sep 20 19:36:45 2020 +0200
+++ b/src/HOL/Library/code_test.ML	Sun Sep 20 20:00:14 2020 +0200
@@ -395,8 +395,8 @@
       "end;"
     val ml_source =
       "Control.MC.matchRedundantError := false; Control.MC.matchRedundantWarn := false;" ^
-      "use " ^ ML_Syntax.print_string (Bash.string (File.platform_path code_path)) ^
-      "; use " ^ ML_Syntax.print_string (Bash.string (File.platform_path driver_path)) ^
+      "use " ^ ML_Syntax.print_string (File.platform_path code_path) ^
+      "; use " ^ ML_Syntax.print_string (File.platform_path driver_path) ^
       "; Test.main ();"
   in
     check_settings compiler ISABELLE_SMLNJ "SMLNJ executable";