1.1 --- a/src/Pure/System/build.ML	Tue Jul 24 21:07:54 2012 +0200
     1.2 +++ b/src/Pure/System/build.ML	Tue Jul 24 21:26:28 2012 +0200
     1.3 @@ -26,7 +26,12 @@
     1.4      |> Unsynchronized.setmp Multithreading.max_threads (Options.int options "threads")
     1.5      |> (case Options.string options "document" of "" => true | "false" => true | _ => false) ?
     1.6          Present.no_document
     1.7 -    |> Unsynchronized.setmp quick_and_dirty (Options.bool options "quick_and_dirty");
     1.8 +    |> Unsynchronized.setmp quick_and_dirty (Options.bool options "quick_and_dirty")
     1.9 +    |> Unsynchronized.setmp Printer.show_question_marks_default
    1.10 +        (Options.bool options "show_question_marks")
    1.11 +    |> Unsynchronized.setmp Name_Space.names_long_default (Options.bool options "names_long")
    1.12 +    |> Unsynchronized.setmp Name_Space.names_short_default (Options.bool options "names_short")
    1.13 +    |> Unsynchronized.setmp Name_Space.names_unique_default (Options.bool options "names_unique");
    1.14  
    1.15  fun use_theories (options, thys) =
    1.16    let val condition = space_explode "," (Options.string options "condition") in