changeset 27774 | 51c7b1baaf35 |
parent 27732 | 8dbf5761a24a |
child 27802 | 1eddcd7dda2d |
27773:a52166b228b9 | 27774:51c7b1baaf35 |
---|---|
30 |
30 |
31 in |
31 in |
32 |
32 |
33 fun read scan s = |
33 fun read scan s = |
34 (case |
34 (case |
35 Symbol.explode s |> |
35 SymbolPos.explode (s, Position.none) |> |
36 Lexicon.tokenize lexicon false |> |
36 Lexicon.tokenize lexicon false |> |
37 Scan.read stopper scan of |
37 Scan.read stopper scan of |
38 SOME x => x |
38 SOME x => x |
39 | NONE => error ("Malformed input: " ^ quote s)); |
39 | NONE => error ("Malformed input: " ^ quote s)); |
40 |
40 |