equal
deleted
inserted
replaced
134 in |
134 in |
135 Source.of_string name |
135 Source.of_string name |
136 |> Symbol.source |
136 |> Symbol.source |
137 |> Token.source {do_recover = SOME false} lex Position.start |
137 |> Token.source {do_recover = SOME false} lex Position.start |
138 |> Token.source_proper |
138 |> Token.source_proper |
139 |> Source.source Token.stopper (Parse_Spec.xthms1 >> get) NONE |
139 |> Source.source Token.stopper (Parse.xthms1 >> get) NONE |
140 |> Source.exhaust |
140 |> Source.exhaust |
141 end |
141 end |
142 |
142 |
143 val one_day = seconds (24.0 * 60.0 * 60.0) |
143 val one_day = seconds (24.0 * 60.0 * 60.0) |
144 val one_year = seconds (365.0 * 24.0 * 60.0 * 60.0) |
144 val one_year = seconds (365.0 * 24.0 * 60.0 * 60.0) |