equal
deleted
inserted
replaced
120 | Space => "white space" |
120 | Space => "white space" |
121 | Comment => "comment text" |
121 | Comment => "comment text" |
122 | InternalValue => "internal value" |
122 | InternalValue => "internal value" |
123 | Error _ => "bad input" |
123 | Error _ => "bad input" |
124 | Sync => "sync marker" |
124 | Sync => "sync marker" |
125 | EOF => "end-of-file"; |
125 | EOF => "end-of-input"; |
126 |
126 |
127 |
127 |
128 (* position *) |
128 (* position *) |
129 |
129 |
130 fun position_of (Token ((_, (pos, _)), _, _)) = pos; |
130 fun position_of (Token ((_, (pos, _)), _, _)) = pos; |