src/Pure/System/build.ML
changeset 48512 a69d7dc49f41
parent 48511 37999ee01156
child 48513 ace120a2cb70
equal deleted inserted replaced
48511:37999ee01156 48512:a69d7dc49f41
    40 fun use_theories (options, thys) =
    40 fun use_theories (options, thys) =
    41   let val condition = space_explode "," (Options.string options "condition") in
    41   let val condition = space_explode "," (Options.string options "condition") in
    42     (case filter_out (can getenv_strict) condition of
    42     (case filter_out (can getenv_strict) condition of
    43       [] => use_thys options thys
    43       [] => use_thys options thys
    44     | conds =>
    44     | conds =>
    45         Output.physical_stderr ("Ignoring theories " ^ commas_quote thys ^
    45         Output.physical_stderr ("Skipping theories " ^ commas_quote thys ^
    46           " (undefined " ^ commas conds ^ ")\n"))
    46           " (undefined " ^ commas conds ^ ")\n"))
    47   end;
    47   end;
    48 
    48 
    49 in
    49 in
    50 
    50