src/Pure/Syntax/simple_syntax.ML
changeset 27774 51c7b1baaf35
parent 27732 8dbf5761a24a
child 27802 1eddcd7dda2d
equal deleted inserted replaced
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