src/Tools/WWW_Find/unicode_symbols.ML
changeset 56135 efa24d31e595
parent 53315 b102e20cec78
equal deleted inserted replaced
56134:4a7a07c01857 56135:efa24d31e595
   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;