equal
deleted
inserted
replaced
160 (print_mode_value ())) f x |
160 (print_mode_value ())) f x |
161 |
161 |
162 fun hackish_string_of_term ctxt = |
162 fun hackish_string_of_term ctxt = |
163 with_vanilla_print_mode (Syntax.string_of_term ctxt) #> simplify_spaces |
163 with_vanilla_print_mode (Syntax.string_of_term ctxt) #> simplify_spaces |
164 |
164 |
165 val spying_version = "b" |
165 val spying_version = "c" |
166 |
166 |
167 fun spying false _ = () |
167 fun spying false _ = () |
168 | spying true f = |
168 | spying true f = |
169 let |
169 let |
170 val (state, i, tool, message) = f () |
170 val (state, i, tool, message) = f () |