src/Pure/System/build.ML
changeset 48470 7483aa690b4f
parent 48468 7f2998b95249
child 48472 6ebb6cdd36a5
--- a/src/Pure/System/build.ML	Tue Jul 24 12:28:20 2012 +0200
+++ b/src/Pure/System/build.ML	Tue Jul 24 12:38:33 2012 +0200
@@ -24,7 +24,8 @@
         (Options.int options "parallel_proofs_threshold")
     |> Unsynchronized.setmp Multithreading.trace (Options.int options "threads_trace")
     |> Unsynchronized.setmp Multithreading.max_threads (Options.int options "threads")
-    |> Options.bool options "no_document" ? Present.no_document
+    |> (case Options.string options "document" of "" => false | "false" => false | _ => true) ?
+        Present.no_document
     |> Unsynchronized.setmp quick_and_dirty (Options.bool options "quick_and_dirty");
 
 fun use_theories (options, thys) =