equal
deleted
inserted
replaced
175 |
175 |
176 end; |
176 end; |
177 |
177 |
178 local |
178 local |
179 val (fromsym, fromabbr, tosym, toabbr) = |
179 val (fromsym, fromabbr, tosym, toabbr) = |
180 read_symbols (Path.explode "~~/src/Tools/WWW_Find/etc/symbols"); |
180 read_symbols @{path "~~/src/Tools/WWW_Find/etc/symbols"}; |
181 in |
181 in |
182 val symbol_to_unicode = Symtab.lookup fromsym; |
182 val symbol_to_unicode = Symtab.lookup fromsym; |
183 val abbrev_to_unicode = Symtab.lookup fromabbr; |
183 val abbrev_to_unicode = Symtab.lookup fromabbr; |
184 val unicode_to_symbol = Inttab.lookup tosym; |
184 val unicode_to_symbol = Inttab.lookup tosym; |
185 val unicode_to_abbrev = Inttab.lookup toabbr; |
185 val unicode_to_abbrev = Inttab.lookup toabbr; |