equal
deleted
inserted
replaced
618 (Lexicon.scan_longid >> pair Long_Ident || |
618 (Lexicon.scan_longid >> pair Long_Ident || |
619 Lexicon.scan_id >> pair Ident || |
619 Lexicon.scan_id >> pair Ident || |
620 Lexicon.scan_var >> pair Var || |
620 Lexicon.scan_var >> pair Var || |
621 Lexicon.scan_tid >> pair Type_Ident || |
621 Lexicon.scan_tid >> pair Type_Ident || |
622 Lexicon.scan_tvar >> pair Type_Var || |
622 Lexicon.scan_tvar >> pair Type_Var || |
623 Lexicon.scan_float >> pair Float || |
623 Symbol_Pos.scan_float >> pair Float || |
624 Lexicon.scan_nat >> pair Nat || |
624 Symbol_Pos.scan_nat >> pair Nat || |
625 scan_symid >> pair Sym_Ident) >> uncurry token)); |
625 scan_symid >> pair Sym_Ident) >> uncurry token)); |
626 |
626 |
627 fun recover msg = |
627 fun recover msg = |
628 (Symbol_Pos.recover_string_qq || |
628 (Symbol_Pos.recover_string_qq || |
629 Symbol_Pos.recover_string_bq || |
629 Symbol_Pos.recover_string_bq || |