equal
deleted
inserted
replaced
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 |