Parent Directory
| 
Revision Log
[r2002-10-10 15:02:36 by cvscast] Empty log message Original author: cvscast Date: 2002-10-10 15:02:36+00:00
| 1 | type loc = int * int |
| 2 | exception Location of loc * exn |
| 3 | |
| 4 | let noloc = (-1,-1) |
| 5 | |
| 6 | type 'a located = { loc : loc; descr : 'a } |
| 7 | |
| 8 | type expr = A | B of expr located |
| 9 | |
| 10 | let rec recurs f x = f (recurs f) x.loc x.descr |
| 11 | |
| 12 | let mk loc x = { loc = loc; descr = x } |
| CVS Admin">CVS Admin | ViewVC Help |
| Powered by ViewVC 1.1.5 |