equal
deleted
inserted
replaced
211 | _ => false); |
211 | _ => false); |
212 |
212 |
213 |
213 |
214 (* extern *) |
214 (* extern *) |
215 |
215 |
216 val names_long_raw = Config.declare_option ("names_long", @{here}); |
216 val names_long_raw = Config.declare_option ("names_long", \<^here>); |
217 val names_long = Config.bool names_long_raw; |
217 val names_long = Config.bool names_long_raw; |
218 |
218 |
219 val names_short_raw = Config.declare_option ("names_short", @{here}); |
219 val names_short_raw = Config.declare_option ("names_short", \<^here>); |
220 val names_short = Config.bool names_short_raw; |
220 val names_short = Config.bool names_short_raw; |
221 |
221 |
222 val names_unique_raw = Config.declare_option ("names_unique", @{here}); |
222 val names_unique_raw = Config.declare_option ("names_unique", \<^here>); |
223 val names_unique = Config.bool names_unique_raw; |
223 val names_unique = Config.bool names_unique_raw; |
224 |
224 |
225 fun extern ctxt space name = |
225 fun extern ctxt space name = |
226 let |
226 let |
227 val names_long = Config.get ctxt names_long; |
227 val names_long = Config.get ctxt names_long; |