equal
deleted
inserted
replaced
181 | dups => error ("Duplicate properties: " ^ commas_quote (map #1 dups) ^ |
181 | dups => error ("Duplicate properties: " ^ commas_quote (map #1 dups) ^ |
182 Position.here_list (map #2 (maps #2 dups)))); |
182 Position.here_list (map #2 (maps #2 dups)))); |
183 in props end; |
183 in props end; |
184 |
184 |
185 val get_string = get_property "" I; |
185 val get_string = get_property "" I; |
186 val get_bool = get_property false Markup.parse_bool; |
186 val get_bool = get_property false Value.parse_bool; |
187 val get_nat = get_property 0 Markup.parse_nat; |
187 val get_nat = get_property 0 Value.parse_nat; |
188 |
188 |
189 end; |
189 end; |
190 |
190 |
191 |
191 |
192 (* read mixfix annotations *) |
192 (* read mixfix annotations *) |