# HG changeset patch
# User wenzelm
# Date 1300721908 -3600
# Node ID cef738d55348500fcdc362ac1b45fd545e5b52f7
# Parent  626fcf4a803ef55faf7d9ef6ee1f16fd572c243b
another attempt to exec ISABELLE_GHC robustly (cf. d8c3b26b3da4, 994d088fbfbc);

diff -r 626fcf4a803e -r cef738d55348 src/HOL/Tools/Quickcheck/narrowing_generators.ML
--- a/src/HOL/Tools/Quickcheck/narrowing_generators.ML	Mon Mar 21 14:46:59 2011 +0100
+++ b/src/HOL/Tools/Quickcheck/narrowing_generators.ML	Mon Mar 21 16:38:28 2011 +0100
@@ -144,10 +144,9 @@
         val _ = File.write narrowing_engine_file narrowing_engine
         val _ = File.write main_file main
         val executable = File.shell_path (Path.append in_path (Path.basic "isa_lsc"))
-        val cmd = "\"$ISABELLE_GHC\" -fglasgow-exts " ^
+        val cmd = "( exec \"$ISABELLE_GHC\" -fglasgow-exts " ^
           (space_implode " " (map File.shell_path [code_file, narrowing_engine_file, main_file])) ^
-          " -o " ^ executable ^ " && " ^ executable
-          (* FIXME: should use bash command exec but does not work with && *) 
+          " -o " ^ executable ^ "; ) && " ^ executable
       in
         bash_output cmd
       end