# HG changeset patch
# User wenzelm
# Date 1507459823 -7200
# Node ID df1f43d477f5b5f9166f12dbc22d6e082a0cbc55
# Parent  bbe87f1b5e5d7929635055588e5630661f507eaf# Parent  193c31b79a33806de7c6f04f1329eb4d902dcad6
merged

diff -r 193c31b79a33 -r df1f43d477f5 src/HOL/Library/code_test.ML
--- a/src/HOL/Library/code_test.ML	Sun Oct 08 12:50:18 2017 +0200
+++ b/src/HOL/Library/code_test.ML	Sun Oct 08 12:50:23 2017 +0200
@@ -425,8 +425,8 @@
       "end;"
     val ml_source =
       "Control.MC.matchRedundantError := false; Control.MC.matchRedundantWarn := false;" ^
-      "use " ^ ML_Syntax.print_string (Path.implode (Path.expand code_path)) ^
-      "; use " ^ ML_Syntax.print_string (Path.implode (Path.expand driver_path)) ^
+      "use " ^ ML_Syntax.print_string (Bash.string (File.platform_path code_path)) ^
+      "; use " ^ ML_Syntax.print_string (Bash.string (File.platform_path driver_path)) ^
       "; Test.main ();"
     val cmd = "echo " ^ Bash.string ml_source ^ " | \"$ISABELLE_SMLNJ\""
   in